me/guix
Archived
1
0
Fork 0
Code Activity

gnu: libelf: Use 'modify-phases'.

Browse source 
* gnu/packages/elf.scm (libelf)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2017-02-21 20:05:40 +02:00
parent eb9a603317
commit db700d5829
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
gnu/packages/elf.scm
View file

@ -79,22 +79,22 @@ addr2line, and more.")
(base32 (base32
"0vf7s9dwk2xkmhb79aigqm0x0yfbw1j0b9ksm51207qwr179n6jr")))) "0vf7s9dwk2xkmhb79aigqm0x0yfbw1j0b9ksm51207qwr179n6jr"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments `(#:phases (alist-replace (arguments
'configure `(#:phases
(lambda* (#:key outputs #:allow-other-keys) (modify-phases %standard-phases
;; This old `configure' script doesn't support (replace 'configure
;; variables passed as arguments. (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) ;; This old `configure' script doesn't support
(setenv "CONFIG_SHELL" (which "bash")) ;; variables passed as arguments.
(zero? (let ((out (assoc-ref outputs "out")))
(system* "./configure" (setenv "CONFIG_SHELL" (which "bash"))
(string-append "--prefix=" out) (zero?
,@(if (string=? "aarch64-linux" (system* "./configure"
(%current-system)) (string-append "--prefix=" out)
'("--host=aarch64-unknown-linux-gnu") ,@(if (string=? "aarch64-linux"
'()) (%current-system))
)))) '("--host=aarch64-unknown-linux-gnu")
%standard-phases))) '())))))))))
(home-page "http://www.mr511.de/software/english.html") (home-page "http://www.mr511.de/software/english.html")
(synopsis "ELF object file access library") (synopsis "ELF object file access library")
(description "Libelf is a C library to access ELF object files.") (description "Libelf is a C library to access ELF object files.")