summary refs log tree commit diff
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2016-10-23 10:21:58 +0300
committerEfraim Flashner <efraim@flashner.co.il>2016-10-23 14:37:35 +0300
commit04014de6f555e21cccb056650f334be316390b5c (patch)
treee35596fcdedc53a319868eea00aeaf8c7e22bbac
parenteccd1d24c9d5988557f03b058a7bc7e482a119f7 (diff)
downloadguix-04014de6f555e21cccb056650f334be316390b5c.tar.gz
gnu: hop: Use 'modify-phases' syntax.
* gnu/packages/scheme.scm (hop)[arguments]: Use 'modify-phases' syntax.
-rw-r--r--gnu/packages/scheme.scm25
1 files changed, 12 insertions, 13 deletions
diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index c8e747d02d..30981b77a9 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)