From 8e5e8724d26033fabe207cfea05b26bcab8c1c99 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 1 Oct 2016 11:43:33 +0200 Subject: 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(-) (limited to 'gnu/packages/commencement.scm') diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index 700de685a7..976b0ac87d 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -75,17 +75,17 @@ (define gnu-make-boot0 #: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)))) -- cgit v1.2.3