futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: libtool: Use 'modify-phases'.

Browse Source 
* gnu/packages/autotools.scm (libtool): Use 'modify-phases'.
[arguments]: Use 'modify-phases'.

Signed-off-by: Leo Famulari <leo@famulari.name>
This commit is contained in:
ng0 2017-01-01 15:24:27 +00:00 committed by Leo Famulari
parent 7d7ea947f5
commit dc70626d26
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
gnu/packages/autotools.scm
View File

@ -5,6 +5,7 @@
;;; Copyright © 2014 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2014 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 David Thompson <davet@gnu.org> ;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2017 ng0 <ng0@libertad.pw>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -313,21 +314,21 @@ Makefile, simplifying the entire process for the developer.")
(or (%current-target-system) (or (%current-target-system)
(%current-system)))) (%current-system))))
#:phases (alist-cons-before #:phases
'check 'pre-check (modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-before 'check 'pre-check
;; Run the test suite in parallel, if possible. (lambda* (#:key inputs #:allow-other-keys)
(setenv "TESTSUITEFLAGS" ;; Run the test suite in parallel, if possible.
(string-append (setenv "TESTSUITEFLAGS"
"-j" (string-append
(number->string (parallel-job-count)))) "-j"
(number->string (parallel-job-count))))
;; Path references to /bin/sh.
(let ((bash (assoc-ref inputs "bash")))
(substitute* "tests/testsuite"
(("/bin/sh")
(string-append bash "/bin/bash")))))))))
;; Path references to /bin/sh.
(let ((bash (assoc-ref inputs "bash")))
(substitute* "tests/testsuite"
(("/bin/sh")
(string-append bash "/bin/bash")))))
%standard-phases)))
(synopsis "Generic shared library support tools") (synopsis "Generic shared library support tools")
(description (description
"GNU Libtool helps in the creation and use of shared libraries, by "GNU Libtool helps in the creation and use of shared libraries, by