02/06: gnu: hop: Use 'modify-phases' syntax.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit 04014de6f555e21cccb056650f334be316390b5c
Author: Efraim Flashner <address@hidden>
Date:   Sun Oct 23 10:21:58 2016 +0300

    gnu: hop: Use 'modify-phases' syntax.
    
    * gnu/packages/scheme.scm (hop)[arguments]: Use 'modify-phases' syntax.
---
 gnu/packages/scheme.scm |   25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index c8e747d..30981b7 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -295,19 +295,18 @@ Scheme and C programs and between Scheme and Java 
programs.")
     (build-system gnu-build-system)
     (arguments
      `(#:phases
-       (alist-replace
-        'configure
-        (lambda* (#:key outputs #:allow-other-keys)
-          (let ((out (assoc-ref outputs "out")))
-            (zero?
-             (system* "./configure"
-                      (string-append "--prefix=" out)
-                      (string-append "--blflags="
-                                     ;; user flags completely override useful
-                                     ;; default flags, so repeat them here.
-                                     "-copt \\$(CPICFLAGS) -L\\$(BUILDLIBDIR) "
-                                     "-ldopt -Wl,-rpath," out "/lib")))))
-        %standard-phases)
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (zero?
+                (system* "./configure"
+                         (string-append "--prefix=" out)
+                         (string-append "--blflags="
+                                        ;; user flags completely override 
useful
+                                        ;; default flags, so repeat them here.
+                                        "-copt \\$(CPICFLAGS) 
-L\\$(BUILDLIBDIR) "
+                                        "-ldopt -Wl,-rpath," out "/lib")))))))
        #:tests? #f))                                ; no test suite
     (inputs `(("avahi" ,avahi)
               ("bigloo" ,bigloo)