Browse Source

gnu: guix: Use 'modify-phases'.

* gnu/packages/package-management.scm (guix-0.8.2)[arguments]: Use
  'modify-phases' instead of 'alist-cons-before'.
gn-latest-20200428
Ludovic Courtès 5 years ago
parent
commit
02c2cf43ce
1 changed files with 23 additions and 23 deletions
  1. +23
    -23
      gnu/packages/package-management.scm

+ 23
- 23
gnu/packages/package-management.scm View File

@@ -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


Loading…
Cancel
Save