02/09: gnu: gnu-make: Use 'modify-phases'.

[Efraim Flashner]

efraim pushed a commit to branch core-updates
in repository guix.

commit 6cc83b68cb1b43866327e3f41c4330210ac9a67f
Author: Efraim Flashner <address@hidden>
Date:   Sun Aug 14 09:47:28 2016 +0300

    gnu: gnu-make: Use 'modify-phases'.
    
    * gnu/packages/base.scm (gnu-make)[arguments]: Use 'modify-phases'.
---
 gnu/packages/base.scm |   20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 2799b28..e7b6589 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -339,16 +339,16 @@ functionality beyond that which is outlined in the POSIX 
standard.")
    (inputs `(("guile" ,guile-2.0)))
    (outputs '("out" "debug"))
    (arguments
-    '(#:phases (alist-cons-before
-                'build 'set-default-shell
-                (lambda* (#:key inputs #:allow-other-keys)
-                  ;; Change the default shell from /bin/sh.
-                  (let ((bash (assoc-ref inputs "bash")))
-                    (substitute* "job.c"
-                      (("default_shell =.*$")
-                       (format #f "default_shell = \"~a/bin/bash\";\n"
-                               bash)))))
-                %standard-phases)))
+    '(#:phases
+      (modify-phases %standard-phases
+        (add-before 'build 'set-default-shell
+          (lambda* (#:key inputs #:allow-other-keys)
+            ;; Change the default shell from /bin/sh.
+            (let ((bash (assoc-ref inputs "bash")))
+              (substitute* "job.c"
+                (("default_shell =.*$")
+                 (format #f "default_shell = \"~a/bin/bash\";\n"
+                         bash)))))))))
    (synopsis "Remake files automatically")
    (description
     "Make is a program that is used to control the production of