[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: gnu: gcl: Use 'modify-phases' syntax.
From: |
Efraim Flashner |
Subject: |
03/03: gnu: gcl: Use 'modify-phases' syntax. |
Date: |
Sun, 9 Apr 2017 23:16:50 -0400 (EDT) |
efraim pushed a commit to branch master
in repository guix.
commit 1803f2493ebe3baf0ce1ce279372e0396c02b76f
Author: Efraim Flashner <address@hidden>
Date: Mon Apr 10 05:34:17 2017 +0300
gnu: gcl: Use 'modify-phases' syntax.
* gnu/packages/lisp.scm (gcl)[arguments]: Use 'modify-phases' syntax.
---
gnu/packages/lisp.scm | 41 ++++++++++++++++++++---------------------
1 file changed, 20 insertions(+), 21 deletions(-)
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 6246840..fc78a60 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -88,27 +88,26 @@
`(#:parallel-build? #f ; The build system seems not to be thread safe.
#:tests? #f ; There does not seem to be make check or anything similar.
#:configure-flags '("--enable-ansi") ; required for use by the maxima
package
- #:phases (alist-cons-before
- 'configure 'pre-conf
- (lambda _
- (substitute*
- (append
- '("pcl/impl/kcl/makefile.akcl"
- "add-defs"
- "unixport/makefile.dos"
- "add-defs.bat"
- "gcl-tk/makefile.prev"
- "add-defs1")
- (find-files "h" "\\.defs"))
- (("SHELL=/bin/bash")
- (string-append "SHELL=" (which "bash")))
- (("SHELL=/bin/sh")
- (string-append "SHELL=" (which "sh"))))
- #t)
- ;; drop strip phase to make maxima build, see
- ;; https://www.ma.utexas.edu/pipermail/maxima/2008/009769.html
- (alist-delete 'strip
- %standard-phases))))
+ #:phases (modify-phases %standard-phases
+ (add-before 'configure 'pre-conf
+ (lambda _
+ (substitute*
+ (append
+ '("pcl/impl/kcl/makefile.akcl"
+ "add-defs"
+ "unixport/makefile.dos"
+ "add-defs.bat"
+ "gcl-tk/makefile.prev"
+ "add-defs1")
+ (find-files "h" "\\.defs"))
+ (("SHELL=/bin/bash")
+ (string-append "SHELL=" (which "bash")))
+ (("SHELL=/bin/sh")
+ (string-append "SHELL=" (which "sh"))))
+ #t))
+ ;; drop strip phase to make maxima build, see
+ ;;
https://www.ma.utexas.edu/pipermail/maxima/2008/009769.html
+ (delete 'strip))))
(inputs
`(("gmp" ,gmp)
("readline" ,readline)))