[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: gnu: make-boot0: Use 'modify-phases'.
From: |
Ludovic Courtès |
Subject: |
02/04: gnu: make-boot0: Use 'modify-phases'. |
Date: |
Sat, 1 Oct 2016 10:15:57 +0000 (UTC) |
civodul pushed a commit to branch core-updates
in repository guix.
commit 8e5e8724d26033fabe207cfea05b26bcab8c1c99
Author: Ludovic Courtès <address@hidden>
Date: Sat Oct 1 11:43:33 2016 +0200
gnu: make-boot0: Use 'modify-phases'.
* gnu/packages/commencement.scm (gnu-make-boot0)[arguments]: Use
'modify-phases'.
---
gnu/packages/commencement.scm | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 700de68..976b0ac 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -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))))