guix_mirror_bot pushed a commit to branch core-packages-team in repository guix.
commit a398632aef12d02af989b194826a2877e44ce9a8 Author: Nicolas Graves <[email protected]> AuthorDate: Thu Feb 19 15:57:03 2026 +0100 gnu: binutils-boot0: Improve style. * gnu/packages/commencement.scm (binutils-boot0)[arguments] <#:phases>: Improve style, use G-expressions. Change-Id: Ic66514a72c06ac603d0bc8c45c6f7f49b81bb82d Signed-off-by: Ludovic Courtès <[email protected]> --- gnu/packages/commencement.scm | 61 ++++++++++++++++++++----------------------- 1 file changed, 29 insertions(+), 32 deletions(-) diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index 28c4c0cf3c5..29ed94e4288 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -2289,39 +2289,36 @@ exec " gcc-bin "/" program (source (bootstrap-origin (package-source binutils))) (name "binutils-cross-boot0") (arguments - (append (list #:guile %bootstrap-guile - #:implicit-inputs? #f + (append + (list + #:guile %bootstrap-guile + #:implicit-inputs? #f - #:modules '((guix build gnu-build-system) - (guix build utils) - (ice-9 ftw)) ; for 'scandir' - #:phases - #~(modify-phases %standard-phases - (add-after 'install 'add-symlinks - (lambda* (#:key outputs #:allow-other-keys) - ;; The cross-gcc invokes 'as', 'ld', etc, without the - ;; triplet prefix, so add symlinks. - (let ((out (assoc-ref outputs "out")) - (triplet-prefix (string-append #$(boot-triplet) - "-"))) - (define (has-triplet-prefix? name) - (string-prefix? triplet-prefix name)) - (define (remove-triplet-prefix name) - (substring name - (string-length triplet-prefix))) - - (with-directory-excursion (string-append out "/bin") - (for-each (lambda (name) - (symlink name - (remove-triplet-prefix name))) - (scandir "." - has-triplet-prefix?)))))))) - (substitute-keyword-arguments arguments - ((#:configure-flags cf) - #~(append (list #$(string-append "--target=" - (boot-triplet)) - "--disable-gprofng") ;requires Bison - #$cf))))) + #:modules '((guix build gnu-build-system) + (guix build utils) + (ice-9 ftw)) ; for 'scandir' + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'add-symlinks + (lambda* (#:key outputs #:allow-other-keys) + ;; The cross-gcc invokes 'as', 'ld', etc, without the + ;; triplet prefix, so add symlinks. + (let ((triplet-prefix (string-append #$(boot-triplet) "-"))) + (define (has-triplet-prefix? name) + (string-prefix? triplet-prefix name)) + (define (remove-triplet-prefix name) + (substring name (string-length triplet-prefix))) + + (with-directory-excursion (string-append #$output "/bin") + (for-each + (lambda (name) (symlink name (remove-triplet-prefix name))) + (scandir "." has-triplet-prefix?)))))))) + (substitute-keyword-arguments arguments + ((#:configure-flags cf) + #~(append (list #$(string-append "--target=" + (boot-triplet)) + "--disable-gprofng") ;requires Bison + #$cf))))) (native-inputs '()) ;no Bison (inputs (%boot0-inputs))))
