diff options
author | Eric Bavier <bavier@member.fsf.org> | 2015-12-15 11:01:03 -0600 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2016-01-12 20:53:14 +0100 |
commit | 3abe8136fddf5bed75219bcb8a552004f078560a (patch) | |
tree | 6101fad659ead61a6f59ab2834ab2c49c7fb46e1 /gnu/packages/boost.scm | |
parent | bb251307642242bb9174e9c4d89909ca40926d67 (diff) | |
download | guix-3abe8136fddf5bed75219bcb8a552004f078560a.tar guix-3abe8136fddf5bed75219bcb8a552004f078560a.tar.gz |
gnu: boost: Use modify-phases.
* gnu/packages/boost.scm (boost)[arguments]: Use modify-phases.
Diffstat (limited to 'gnu/packages/boost.scm')
-rw-r--r-- | gnu/packages/boost.scm | 47 |
1 files changed, 23 insertions, 24 deletions
diff --git a/gnu/packages/boost.scm b/gnu/packages/boost.scm index d3b171245d..d3d0c0339a 100644 --- a/gnu/packages/boost.scm +++ b/gnu/packages/boost.scm @@ -67,34 +67,33 @@ '())))) `(#:tests? #f #:phases - (alist-replace - 'configure - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (substitute* '("libs/config/configure" - "libs/spirit/classic/phoenix/test/runtest.sh" - "tools/build/doc/bjam.qbk" - "tools/build/src/engine/execunix.c" - "tools/build/src/engine/Jambase" - "tools/build/src/engine/jambase.c") - (("/bin/sh") (which "sh"))) - - (setenv "SHELL" (which "sh")) - (setenv "CONFIG_SHELL" (which "sh")) + (modify-phases %standard-phases + (replace + 'configure + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (substitute* '("libs/config/configure" + "libs/spirit/classic/phoenix/test/runtest.sh" + "tools/build/doc/bjam.qbk" + "tools/build/src/engine/execunix.c" + "tools/build/src/engine/Jambase" + "tools/build/src/engine/jambase.c") + (("/bin/sh") (which "sh"))) - (zero? (system* "./bootstrap.sh" - (string-append "--prefix=" out) - "--with-toolset=gcc")))) - (alist-replace - 'build - (lambda* (#:key outputs #:allow-other-keys) - (zero? (system* "./b2" ,@build-flags))) + (setenv "SHELL" (which "sh")) + (setenv "CONFIG_SHELL" (which "sh")) - (alist-replace + (zero? (system* "./bootstrap.sh" + (string-append "--prefix=" out) + "--with-toolset=gcc"))))) + (replace + 'build + (lambda* (#:key outputs #:allow-other-keys) + (zero? (system* "./b2" ,@build-flags)))) + (replace 'install (lambda* (#:key outputs #:allow-other-keys) - (zero? (system* "./b2" "install" ,@build-flags))) - %standard-phases)))))) + (zero? (system* "./b2" "install" ,@build-flags)))))))) (home-page "http://boost.org") (synopsis "Peer-reviewed portable C++ source libraries") |