gnu: binutils-boot0: Use 'modify-phases' syntax.
* gnu/packages/commencement.scm (binutils-boot0)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
parent
656a5ba0d5
commit
ac423120c0
|
@ -149,23 +149,22 @@ (define binutils-boot0
|
||||||
#:modules ((guix build gnu-build-system)
|
#:modules ((guix build gnu-build-system)
|
||||||
(guix build utils)
|
(guix build utils)
|
||||||
(ice-9 ftw)) ; for 'scandir'
|
(ice-9 ftw)) ; for 'scandir'
|
||||||
#:phases (alist-cons-after
|
#:phases (modify-phases %standard-phases
|
||||||
'install 'add-symlinks
|
(add-after 'install 'add-symlinks
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
;; The cross-gcc invokes 'as', 'ld', etc, without the
|
;; The cross-gcc invokes 'as', 'ld', etc, without the
|
||||||
;; triplet prefix, so add symlinks.
|
;; triplet prefix, so add symlinks.
|
||||||
(let ((out (assoc-ref outputs "out"))
|
(let ((out (assoc-ref outputs "out"))
|
||||||
(triplet-prefix (string-append ,(boot-triplet) "-")))
|
(triplet-prefix (string-append ,(boot-triplet) "-")))
|
||||||
(define (has-triplet-prefix? name)
|
(define (has-triplet-prefix? name)
|
||||||
(string-prefix? triplet-prefix name))
|
(string-prefix? triplet-prefix name))
|
||||||
(define (remove-triplet-prefix name)
|
(define (remove-triplet-prefix name)
|
||||||
(substring name (string-length triplet-prefix)))
|
(substring name (string-length triplet-prefix)))
|
||||||
(with-directory-excursion (string-append out "/bin")
|
(with-directory-excursion (string-append out "/bin")
|
||||||
(for-each (lambda (name)
|
(for-each (lambda (name)
|
||||||
(symlink name (remove-triplet-prefix name)))
|
(symlink name (remove-triplet-prefix name)))
|
||||||
(scandir "." has-triplet-prefix?)))
|
(scandir "." has-triplet-prefix?)))
|
||||||
#t))
|
#t))))
|
||||||
%standard-phases)
|
|
||||||
|
|
||||||
,@(substitute-keyword-arguments (package-arguments binutils)
|
,@(substitute-keyword-arguments (package-arguments binutils)
|
||||||
((#:configure-flags cf)
|
((#:configure-flags cf)
|
||||||
|
|
Loading…
Reference in a new issue