[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: gnu: libelf: Use 'modify-phases'.
From: |
Efraim Flashner |
Subject: |
02/04: gnu: libelf: Use 'modify-phases'. |
Date: |
Tue, 21 Feb 2017 14:20:36 -0500 (EST) |
efraim pushed a commit to branch core-updates
in repository guix.
commit db700d58299dd0a063622de519ae42afe33c3ee5
Author: Efraim Flashner <address@hidden>
Date: Tue Feb 21 20:05:40 2017 +0200
gnu: libelf: Use 'modify-phases'.
* gnu/packages/elf.scm (libelf)[arguments]: Use 'modify-phases'.
---
gnu/packages/elf.scm | 32 ++++++++++++++++----------------
1 file changed, 16 insertions(+), 16 deletions(-)
diff --git a/gnu/packages/elf.scm b/gnu/packages/elf.scm
index 95ba761..c68604c 100644
--- a/gnu/packages/elf.scm
+++ b/gnu/packages/elf.scm
@@ -79,22 +79,22 @@ addr2line, and more.")
(base32
"0vf7s9dwk2xkmhb79aigqm0x0yfbw1j0b9ksm51207qwr179n6jr"))))
(build-system gnu-build-system)
- (arguments `(#:phases (alist-replace
- 'configure
- (lambda* (#:key outputs #:allow-other-keys)
- ;; This old `configure' script doesn't support
- ;; variables passed as arguments.
- (let ((out (assoc-ref outputs "out")))
- (setenv "CONFIG_SHELL" (which "bash"))
- (zero?
- (system* "./configure"
- (string-append "--prefix=" out)
- ,@(if (string=? "aarch64-linux"
- (%current-system))
-
'("--host=aarch64-unknown-linux-gnu")
- '())
- ))))
- %standard-phases)))
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (replace 'configure
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; This old `configure' script doesn't support
+ ;; variables passed as arguments.
+ (let ((out (assoc-ref outputs "out")))
+ (setenv "CONFIG_SHELL" (which "bash"))
+ (zero?
+ (system* "./configure"
+ (string-append "--prefix=" out)
+ ,@(if (string=? "aarch64-linux"
+ (%current-system))
+ '("--host=aarch64-unknown-linux-gnu")
+ '())))))))))
(home-page "http://www.mr511.de/software/english.html")
(synopsis "ELF object file access library")
(description "Libelf is a C library to access ELF object files.")