diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-06-13 18:32:35 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-06-13 22:33:37 +0200 |
| commit | 02c2cf43ce53718f02376c438b87504a7a2e1c0a (patch) | |
| tree | 07233e582263b9952937a4c158f138820810c3a2 | |
| parent | 0061079a19c9ac38a2d2a170bcfea17fd362d15e (diff) | |
| download | guix-02c2cf43ce53718f02376c438b87504a7a2e1c0a.tar.gz | |
gnu: guix: Use 'modify-phases'.
* gnu/packages/package-management.scm (guix-0.8.2)[arguments]: Use 'modify-phases' instead of 'alist-cons-before'.
| -rw-r--r-- | gnu/packages/package-management.scm | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index a2c74c2fe6..33dce5c809 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -75,31 +75,31 @@ (string-append "--with-libgcrypt-prefix=" (assoc-ref %build-inputs "libgcrypt"))) - #:phases (alist-cons-before - 'configure 'copy-bootstrap-guile - (lambda* (#:key system inputs #:allow-other-keys) - (define (boot-guile-version arch) - (if (string=? "armhf" arch) - "2.0.11" - "2.0.9")) + #:phases (modify-phases %standard-phases + (add-before + 'configure 'copy-bootstrap-guile + (lambda* (#:key system inputs #:allow-other-keys) + (define (boot-guile-version arch) + (if (string=? "armhf" arch) + "2.0.11" + "2.0.9")) - (define (copy arch) - (let ((guile (assoc-ref inputs - (string-append "boot-guile/" - arch))) - (target (string-append "gnu/packages/bootstrap/" - arch "-linux/" - "/guile-" - (boot-guile-version arch) - ".tar.xz"))) - (copy-file guile target))) + (define (copy arch) + (let ((guile (assoc-ref inputs + (string-append "boot-guile/" + arch))) + (target (string-append "gnu/packages/bootstrap/" + arch "-linux/" + "/guile-" + (boot-guile-version arch) + ".tar.xz"))) + (copy-file guile target))) - (copy "i686") - (copy "x86_64") - (copy "mips64el") - (copy "armhf") - #t) - %standard-phases))) + (copy "i686") + (copy "x86_64") + (copy "mips64el") + (copy "armhf") + #t))))) (native-inputs `(("pkg-config" ,pkg-config) ("emacs" ,emacs-no-x))) ;for guix.el (inputs |