~ruther/guix-local: gnu: chibi-scheme: Use 'modify-phases'.

4a187c556d9e6c3f053efd80f3b1fdecbc02e40e — Ludovic Courtès 9 years ago 797a5cf

gnu: chibi-scheme: Use 'modify-phases'.

* gnu/packages/scheme.scm (chibi-scheme)[arguments]: Use
'modify-phases'.

patch browse .tar.gz

1 files changed, 5 insertions(+), 8 deletions(-)

M gnu/packages/scheme.scm

M gnu/packages/scheme.scm => gnu/packages/scheme.scm +5 -8

@@ 571,14 571,11 @@ mixed.")
        (file-name (string-append "chibi-scheme-" version ".tar.gz"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
-       (alist-delete
-        'configure
-        (alist-cons-before
-         'build 'set-cc
-         (lambda _
-           (setenv "CC" "gcc"))
-         %standard-phases))
+     `(#:phases (modify-phases %standard-phases
+                  (delete 'configure)
+                  (add-before 'build 'set-cc
+                    (lambda _
+                      (setenv "CC" "gcc"))))
        #:make-flags (let ((out (assoc-ref %outputs "out")))
                       (list (string-append "PREFIX=" out)
                             (string-append "LDFLAGS=-Wl,-rpath=" out "/lib")))