nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* gnu/packages/algebra.scm (bc)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2017-04-16 19:20:41 +03:00
parent 8e71d6612d
commit ecc5bc33a3
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
gnu/packages/algebra.scm
View File

@ -4,6 +4,7 @@
;;; Copyright © 2016 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2016 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -479,22 +480,22 @@ binary.")
(native-inputs `(("flex" ,flex))) (native-inputs `(("flex" ,flex)))
(arguments (arguments
'(#:phases '(#:phases
(alist-replace 'configure (modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (replace 'configure
;; This old `configure' script doesn't support (lambda* (#:key outputs #:allow-other-keys)
;; variables passed as arguments. ;; This old `configure' script doesn't support
(let ((out (assoc-ref outputs "out"))) ;; variables passed as arguments.
(setenv "CONFIG_SHELL" (which "bash")) (let ((out (assoc-ref outputs "out")))
(zero? (setenv "CONFIG_SHELL" (which "bash"))
(system* (zero?
"./configure" (system*
(string-append "--prefix=" out) "./configure"
;; By default, man and info pages are put in (string-append "--prefix=" out)
;; PREFIX/{man,info}, but we want them in ;; By default, man and info pages are put in
;; PREFIX/share/{man,info}. ;; PREFIX/{man,info}, but we want them in
(string-append "--mandir=" out "/share/man") ;; PREFIX/share/{man,info}.
(string-append "--infodir=" out "/share/info"))))) (string-append "--mandir=" out "/share/man")
%standard-phases))) (string-append "--infodir=" out "/share/info")))))))))
(home-page "https://www.gnu.org/software/bc/") (home-page "https://www.gnu.org/software/bc/")
(synopsis "Arbitrary precision numeric processing language") (synopsis "Arbitrary precision numeric processing language")
(description (description