guix_mirror_bot pushed a commit to branch core-packages-team
in repository guix.

commit 358fb0611160346be515fcbbc768d36193823fab
Author: Nicolas Graves <[email protected]>
AuthorDate: Wed Feb 18 22:59:24 2026 +0100

    gnu: %boot-mesboot4-inputs: Drop input labels.
    
    * gnu/packages/commencement.scm
    (%boot-mesboot4-inputs): Drop input labels.
    (gcc-mesboot): Adapt accordingly.
    (%boot-mesboot5-inputs): Inject former %boot-mesboot4-inputs for incremental
    progress on input label removal.
    
    Change-Id: I93d4a18996ef1f3c0ff5c2dc13f2bed4b75a5e18
    Signed-off-by: Ludovic Courtès <[email protected]>
---
 gnu/packages/commencement.scm | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 62449142ba..ed039fcf2c 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -1703,18 +1703,7 @@ ac_cv_c_float_format='IEEE (little-endian)'
                    (copy-recursively kernel-headers #$output)))))))))))
 
 (define (%boot-mesboot4-inputs)
-  `(("libc" ,glibc-mesboot)
-    ("binutils" ,binutils-mesboot)
-    ("gawk" ,gawk-mesboot)
-    ("gcc" ,gcc-mesboot1)
-    ("make" ,gnu-make-mesboot)
-    ("kernel-headers" ,%bootstrap-linux-libre-headers)
-    ("gzip" ,gzip-mesboot)
-    ("patch" ,patch-mesboot)
-    ("bash" , gash-boot)               ;gnu-build-system used to expect "bash"
-    ("coreutils" , gash-utils-boot)
-    ("bootar" ,bootar)
-    ("guile" ,%bootstrap-guile)))
+  (cons* glibc-mesboot (delete glibc-mesboot0 (%boot-mesboot3-inputs))))
 
 (define gcc-mesboot1-wrapper
   ;; We need this so gcc-mesboot1 can be used to create shared binaries that
@@ -1781,7 +1770,7 @@ exec " gcc-bin "/" program
     (native-inputs
      (cons* gcc-mesboot1-wrapper
             glibc-headers-mesboot
-            (map cadr (%boot-mesboot4-inputs))))
+            (%boot-mesboot4-inputs)))
     (arguments
      (cons*
       #:validate-runpath? #f
@@ -1878,7 +1867,17 @@ exec " gcc-bin "/" program
 (define (%boot-mesboot5-inputs)
   `(("gcc-wrapper" ,gcc-mesboot-wrapper)
     ("gcc" ,gcc-mesboot)
-    ,@(fold alist-delete (%boot-mesboot4-inputs) '("gcc" "gcc-wrapper"))))
+    ("libc" ,glibc-mesboot)
+    ("binutils" ,binutils-mesboot)
+    ("gawk" ,gawk-mesboot)
+    ("make" ,gnu-make-mesboot)
+    ("kernel-headers" ,%bootstrap-linux-libre-headers)
+    ("gzip" ,gzip-mesboot)
+    ("patch" ,patch-mesboot)
+    ("bash" , gash-boot)               ;gnu-build-system used to expect "bash"
+    ("coreutils" , gash-utils-boot)
+    ("bootar" ,bootar)
+    ("guile" ,%bootstrap-guile)))
 
 (define (mesboot-package name pkg)
   (package

Reply via email to