diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2017-01-16 09:54:47 +0200 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2017-01-16 09:54:47 +0200 |
| commit | 6cd00453476f2f040680d9d7163411af224101d1 (patch) | |
| tree | 8f73d35bfec7f6d2415a627469eb517cdf189280 | |
| parent | 2b8bea03b605c96afe730ea088bcdc6b78e58c2d (diff) | |
| download | guix-6cd00453476f2f040680d9d7163411af224101d1.tar.gz | |
gnu: zlib: Use 'modify-phases' syntax.
* gnu/packages/compression.scm (zlib)[arguments]: Use 'modify-phases'.
| -rw-r--r-- | gnu/packages/compression.scm | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm index d3bf7ec981..86cb147798 100644 --- a/gnu/packages/compression.scm +++ b/gnu/packages/compression.scm @@ -64,21 +64,21 @@ "18dighcs333gsvajvvgqp8l4cx7h1x7yx9gd5xacnk80spyykrf3")))) (build-system gnu-build-system) (arguments - `(#:phases (alist-replace - 'configure - (lambda* (#:key outputs #:allow-other-keys) - ;; Zlib's home-made `configure' fails when passed - ;; extra flags like `--enable-fast-install', so we need to - ;; invoke it with just what it understand. - (let ((out (assoc-ref outputs "out"))) - ;; 'configure' doesn't understand '--host'. - ,@(if (%current-target-system) - `((setenv "CHOST" ,(%current-target-system))) - '()) - (zero? - (system* "./configure" - (string-append "--prefix=" out))))) - %standard-phases))) + `(#:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + ;; Zlib's home-made `configure' fails when passed + ;; extra flags like `--enable-fast-install', so we need to + ;; invoke it with just what it understand. + (let ((out (assoc-ref outputs "out"))) + ;; 'configure' doesn't understand '--host'. + ,@(if (%current-target-system) + `((setenv "CHOST" ,(%current-target-system))) + '()) + (zero? + (system* "./configure" + (string-append "--prefix=" out))))))))) (home-page "http://zlib.net/") (synopsis "Compression library") (description |