[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: chibi-scheme: Use 'modify-phases'.
From: |
Ludovic Courtès |
Subject: |
01/01: gnu: chibi-scheme: Use 'modify-phases'. |
Date: |
Thu, 15 Sep 2016 16:56:52 +0000 (UTC) |
civodul pushed a commit to branch master
in repository guix.
commit 4a187c556d9e6c3f053efd80f3b1fdecbc02e40e
Author: Ludovic Courtès <address@hidden>
Date: Thu Sep 15 15:40:00 2016 +0200
gnu: chibi-scheme: Use 'modify-phases'.
* gnu/packages/scheme.scm (chibi-scheme)[arguments]: Use
'modify-phases'.
---
gnu/packages/scheme.scm | 13 +++++--------
1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index 797cd15..287bcdf 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -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")))