guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 4801cb6f8f01682bfc2fd6183aa00047b11e5009
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Thu Oct 30 16:20:01 2025 +0900
Revert "gnu: binutils-boot0: Refactor arguments."
This reverts commit 6f229017f5ba52a69d4b7bc35722c9f919372f71.
---
gnu/packages/commencement.scm | 68 +++++++++++++++++++++----------------------
1 file changed, 34 insertions(+), 34 deletions(-)
diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 9c225a34d5..e94af24651 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -2248,40 +2248,40 @@ exec " gcc "/bin/" program
(source (bootstrap-origin (package-source binutils)))
(name "binutils-cross-boot0")
(arguments
- (ensure-keyword-arguments
- (substitute-keyword-arguments (package-arguments binutils)
- ((#:modules modules '((guix build gnu-build-system)
- (guix build utils)))
- (cons '(ice-9 ftw) modules))
- ((#:configure-flags cf ''())
- #~(append (list #$(string-append "--target="
- (boot-triplet))
- "--disable-gprofng") ;requires Bison
- #$cf))
- ((#:phases phases '%standard-phases)
- #~(modify-phases #$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?)))))))))
- (list #:guile %bootstrap-guile
- #:implicit-inputs? #f)))
- (native-inputs '()) ;no Bison
+ (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 (package-arguments binutils)
+ ((#:configure-flags cf)
+ #~(append (list #$(string-append "--target="
+ (boot-triplet))
+ "--disable-gprofng") ;requires Bison
+ #$cf)))))
+ (native-inputs '()) ;no Bison
(inputs (%boot0-inputs))))
(define libstdc++-boot0
