me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/packages/compression.scm (zlib)[arguments]: Use 'modify-phases'.
master
Efraim Flashner 2017-01-16 09:54:47 +02:00
parent 2b8bea03b6
commit 6cd0045347
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
gnu/packages/compression.scm
View File

@ -64,21 +64,21 @@
"18dighcs333gsvajvvgqp8l4cx7h1x7yx9gd5xacnk80spyykrf3")))) "18dighcs333gsvajvvgqp8l4cx7h1x7yx9gd5xacnk80spyykrf3"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (alist-replace `(#:phases
'configure (modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (replace 'configure
;; Zlib's home-made `configure' fails when passed (lambda* (#:key outputs #:allow-other-keys)
;; extra flags like `--enable-fast-install', so we need to ;; Zlib's home-made `configure' fails when passed
;; invoke it with just what it understand. ;; extra flags like `--enable-fast-install', so we need to
(let ((out (assoc-ref outputs "out"))) ;; invoke it with just what it understand.
;; 'configure' doesn't understand '--host'. (let ((out (assoc-ref outputs "out")))
,@(if (%current-target-system) ;; 'configure' doesn't understand '--host'.
`((setenv "CHOST" ,(%current-target-system))) ,@(if (%current-target-system)
'()) `((setenv "CHOST" ,(%current-target-system)))
(zero? '())
(system* "./configure" (zero?
(string-append "--prefix=" out))))) (system* "./configure"
%standard-phases))) (string-append "--prefix=" out)))))))))
(home-page "http://zlib.net/") (home-page "http://zlib.net/")
(synopsis "Compression library") (synopsis "Compression library")
(description (description