02/03: gnu: guile-lib: Use 'modify-phases'.

[Ludovic Courtès]

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

commit 9d356c9c925451634d2d39e3e1b87efa91e8446b
Author: Ludovic Courtès <address@hidden>
Date:   Mon Oct 17 21:48:08 2016 +0200

    gnu: guile-lib: Use 'modify-phases'.
    
    * gnu/packages/guile.scm (guile-lib)[arguments]: Use 'modify-phases'.
---
 gnu/packages/guile.scm |   13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 28a52fc..0325e63 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -520,13 +520,12 @@ format is also supported.")
                "1f9n2b5b5r75lzjinyk6zp6g20g60msa0jpfrk5hhg4j8cy0ih4b"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases (alist-cons-before
-                 'configure 'patch-module-dir
-                 (lambda _
-                   (substitute* "src/Makefile.in"
-                     (("^moddir[[:blank:]]*=[[:blank:]]*([[:graph:]]+)" _ rhs)
-                      (string-append "moddir = " rhs "/2.0\n"))))
-                 %standard-phases)))
+     '(#:phases (modify-phases %standard-phases
+                  (add-before 'configure 'patch-module-dir
+                    (lambda _
+                      (substitute* "src/Makefile.in"
+                        (("^moddir[[:blank:]]*=[[:blank:]]*([[:graph:]]+)" _ 
rhs)
+                         (string-append "moddir = " rhs "/2.0\n"))))))))
     (inputs `(("guile" ,guile-2.0)))
     (home-page "http://www.nongnu.org/guile-lib/";)
     (synopsis "Collection of useful Guile Scheme modules")