tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-15 23:05:20 +02:00
Code Activity

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

Browse Source 
* gnu/packages/commencement.scm (gnu-make-boot0)[arguments]: Use
'modify-phases'.
This commit is contained in:
Ludovic Courtès
2016-10-01 11:43:33 +02:00
parent d31860b9de
commit 8e5e8724d2
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/commencement.scm
View File

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