From 6610c6cbfc5ab7805d9245f649ed7401598bd0a5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 23 Mar 2025 01:16:17 +0100
Subject: [PATCH] gnu: gash-boot: Remove input labels.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* 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 d90f5fe10c7f036290e9b781e6ba18813bdfdeb6..79da18ed5b3e810be17a1d28d4f0b310a986edca 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