TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: binutils-boot0: Use 'modify-phases' syntax.

Browse source 
* gnu/packages/commencement.scm (binutils-boot0)[arguments]: Use
'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2017-10-06 10:43:51 +03:00
parent 656a5ba0d5
commit ac423120c0
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 16 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
gnu/packages/commencement.scm
View file

@ -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)