287/290: gnu: gash-boot: Remove input labels.

[guix-commits]

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

commit 5e3b9d77d68f971bee2290ad71e06bbc85118ab0
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Mar 23 01:16:17 2025 +0100

    gnu: gash-boot: Remove input labels.
    
    * gnu/packages/commencement.scm (gash-boot)[arguments]: Use #:modules
    instead of a non-top-level ‘use-modules’.  Turn #:phases into a gexp.
    [inputs, native-inputs]: Remove labels.
    
    Change-Id: I1e18b3ef76bb681494f76dded0dbd3b88cb9c462
---
 gnu/packages/commencement.scm | 49 +++++++++++++++++++++++--------------------
 1 file changed, 26 insertions(+), 23 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 1d8d871865..3304b57c4d 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -205,29 +205,32 @@ pure Scheme to Tar and decompression in one easy step.")
     (inherit gash)
     (name "gash-boot")
     (arguments
-     `(#:implicit-inputs? #f
-       #:tests? #f
-       #:guile ,%bootstrap-guile
-       #:imported-modules ((guix build gnu-bootstrap)
-                           ,@%default-gnu-imported-modules)
-       #:phases
-       (begin
-         (use-modules (guix build gnu-bootstrap))
-         (modify-phases %standard-phases
-           (replace 'configure
-             (bootstrap-configure "Gash" ,(package-version gash)
-                                  '("gash") "scripts"))
-           (replace 'build (bootstrap-build '("gash")))
-           (replace 'install (bootstrap-install '("gash") "scripts"))
-           (add-after 'install 'install-symlinks
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let ((out (assoc-ref outputs "out")))
-                 (symlink (string-append out "/bin/gash")
-                          (string-append out "/bin/sh"))
-                 (symlink (string-append out "/bin/gash")
-                          (string-append out "/bin/bash")))))))))
-    (inputs `(("guile" ,%bootstrap-guile)))
-    (native-inputs `(("bootar" ,bootar)))))
+     (list #:implicit-inputs? #f
+           #:tests? #f
+           #:guile %bootstrap-guile
+           #:imported-modules `((guix build gnu-bootstrap)
+                                ,@%default-gnu-imported-modules)
+           #:modules `((guix build gnu-bootstrap)
+                       ,@%default-gnu-modules)
+           #:phases
+           #~(modify-phases %standard-phases
+               (replace 'configure
+                 (bootstrap-configure "Gash"
+                                      #$(package-version gash)
+                                      '("gash") "scripts"))
+               (replace 'build
+                 (bootstrap-build '("gash")))
+               (replace 'install
+                 (bootstrap-install '("gash") "scripts"))
+               (add-after 'install 'install-symlinks
+                 (lambda* (#:key outputs #:allow-other-keys)
+                   (let ((out (assoc-ref outputs "out")))
+                     (symlink (string-append out "/bin/gash")
+                              (string-append out "/bin/sh"))
+                     (symlink (string-append out "/bin/gash")
+                              (string-append out "/bin/bash"))))))))
+    (inputs (list %bootstrap-guile))
+    (native-inputs (list bootar))))
 
 (define gash-utils-boot
   (package