~ruther/guix-local: gnu: make-boot0: Use 'modify-phases'.

8e5e8724d26033fabe207cfea05b26bcab8c1c99 — Ludovic Courtès 9 years ago d31860b

gnu: make-boot0: Use 'modify-phases'.

* gnu/packages/commencement.scm (gnu-make-boot0)[arguments]: Use
'modify-phases'.

patch browse .tar.gz

1 files changed, 11 insertions(+), 11 deletions(-)

M gnu/packages/commencement.scm

M gnu/packages/commencement.scm => gnu/packages/commencement.scm +11 -11

@@ 75,17 75,17 @@
         #:tests? #f                  ; cannot run "make check"
         ,@(substitute-keyword-arguments (package-arguments gnu-make)
             ((#:phases phases)
-             `(alist-replace
-               'build (lambda _
-                        (zero? (system* "./build.sh")))
-               (alist-replace
-                'install (lambda* (#:key outputs #:allow-other-keys)
-                           (let* ((out (assoc-ref outputs "out"))
-                                  (bin (string-append out "/bin")))
-                             (mkdir-p bin)
-                             (copy-file "make"
-                                        (string-append bin "/make"))))
-                ,phases))))))
+             `(modify-phases ,phases
+                (replace 'build
+                  (lambda _
+                    (zero? (system* "./build.sh"))))
+                (replace 'install
+                  (lambda* (#:key outputs #:allow-other-keys)
+                    (let* ((out (assoc-ref outputs "out"))
+                           (bin (string-append out "/bin")))
+                      (mkdir-p bin)
+                      (copy-file "make"
+                                 (string-append bin "/make"))))))))))
      (native-inputs '())                          ; no need for 'pkg-config'
      (inputs %bootstrap-inputs))))