TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: boost: Use modify-phases.

Browse source 
* gnu/packages/boost.scm (boost)[arguments]: Use modify-phases.
This commit is contained in:
Eric Bavier 2015-12-15 11:01:03 -06:00 committed by Ludovic Courtès
parent bb25130764
commit 3abe8136fd
1 changed files with 23 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/packages/boost.scm
View file

@ -67,7 +67,8 @@ (define-public boost
'())))) '()))))
`(#:tests? #f `(#:tests? #f
#:phases #:phases
(alist-replace (modify-phases %standard-phases
(replace
'configure 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
@ -84,17 +85,15 @@ (define-public boost
(zero? (system* "./bootstrap.sh" (zero? (system* "./bootstrap.sh"
(string-append "--prefix=" out) (string-append "--prefix=" out)
"--with-toolset=gcc")))) "--with-toolset=gcc")))))
(alist-replace (replace
'build 'build
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(zero? (system* "./b2" ,@build-flags))) (zero? (system* "./b2" ,@build-flags))))
(replace
(alist-replace
'install 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(zero? (system* "./b2" "install" ,@build-flags))) (zero? (system* "./b2" "install" ,@build-flags))))))))
%standard-phases))))))
(home-page "http://boost.org") (home-page "http://boost.org")
(synopsis "Peer-reviewed portable C++ source libraries") (synopsis "Peer-reviewed portable C++ source libraries")