me/guix
Archived
1
0
Fork 0
Code Activity

gnu: gcl: Use 'modify-phases' syntax.

Browse source 
* gnu/packages/lisp.scm (gcl)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2017-04-10 05:34:17 +03:00
parent 47fb74aebc
commit 1803f2493e
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 20 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
gnu/packages/lisp.scm
View file

@ -88,27 +88,26 @@
`(#:parallel-build? #f ; The build system seems not to be thread safe. `(#: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. #:tests? #f ; There does not seem to be make check or anything similar.
#:configure-flags '("--enable-ansi") ; required for use by the maxima package #:configure-flags '("--enable-ansi") ; required for use by the maxima package
#:phases (alist-cons-before #:phases (modify-phases %standard-phases
'configure 'pre-conf (add-before 'configure 'pre-conf
(lambda _ (lambda _
(substitute* (substitute*
(append (append
'("pcl/impl/kcl/makefile.akcl" '("pcl/impl/kcl/makefile.akcl"
"add-defs" "add-defs"
"unixport/makefile.dos" "unixport/makefile.dos"
"add-defs.bat" "add-defs.bat"
"gcl-tk/makefile.prev" "gcl-tk/makefile.prev"
"add-defs1") "add-defs1")
(find-files "h" "\\.defs")) (find-files "h" "\\.defs"))
(("SHELL=/bin/bash") (("SHELL=/bin/bash")
(string-append "SHELL=" (which "bash"))) (string-append "SHELL=" (which "bash")))
(("SHELL=/bin/sh") (("SHELL=/bin/sh")
(string-append "SHELL=" (which "sh")))) (string-append "SHELL=" (which "sh"))))
#t) #t))
;; drop strip phase to make maxima build, see ;; drop strip phase to make maxima build, see
;; https://www.ma.utexas.edu/pipermail/maxima/2008/009769.html ;; https://www.ma.utexas.edu/pipermail/maxima/2008/009769.html
(alist-delete 'strip (delete 'strip))))
%standard-phases))))
(inputs (inputs
`(("gmp" ,gmp) `(("gmp" ,gmp)
("readline" ,readline))) ("readline" ,readline)))