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

commit c6eab8e6f3031aa2c97a3ac9809e752b6423954c
Author: Nicolas Graves <[email protected]>
AuthorDate: Thu Feb 19 08:05:29 2026 +0100

    gnu: gnu-make-4.2: Improve style.
    
    * gnu/packages/base.scm (gnu-make-4.2)[arguments]: Improve style.
    <#:phases>: Use search-input-file instead of labels, use
    G-expressions.
    
    Change-Id: I3b7404382b84efe4f23c60b100f9a0147ab1d551
    Signed-off-by: Ludovic Courtès <[email protected]>
---
 gnu/packages/base.scm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 323589566d..8266132cb5 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -671,17 +671,17 @@ change.  GNU make offers many powerful extensions over 
the standard utility.")
                (base32
                 "12f5zzyq2w56g95nni65hc0g5p7154033y2f3qmjvd016szn5qnn"))))
     (arguments
-     `(#:configure-flags '("CFLAGS=-D__alloca=alloca -D__stat=stat")
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'build 'set-default-shell
-           (lambda* (#:key inputs #:allow-other-keys)
-             ;; Change the default shell from /bin/sh.
-             (let ((bash (assoc-ref inputs "bash")))
-               (substitute* "job.c"
-                 (("default_shell =.*$")
-                  (format #f "default_shell = \"~a/bin/sh\";\n"
-                          bash)))))))))))
+     (list
+      #:configure-flags #~(list "CFLAGS=-D__alloca=alloca -D__stat=stat")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'build 'set-default-shell
+            (lambda* (#:key inputs #:allow-other-keys)
+              ;; Change the default shell from /bin/sh.
+              (substitute* "job.c"
+                (("default_shell =.*$")
+                 (format #f "default_shell = \"~a\";\n"
+                         (search-input-file inputs "/bin/sh")))))))))))
 
 (define-public binutils
   (package

Reply via email to