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

commit ed138938c56fce6b3ddb4790c7ed18ee06aec1ad
Author: Nicolas Graves <[email protected]>
AuthorDate: Tue Feb 17 15:31:31 2026 +0100

    gnu: gnu-make-mesboot: Improve style.
    
    * gnu/packages/commencement.scm (gnu-make-mesboot)[arguments]: Improve
    style, use G-expressions.
    
    Change-Id: Ibfa1658e641be2bfb36b40c2f88c0194bceda470
    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 08845814a7f..3b6a2f0c5a5 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -1266,20 +1266,19 @@ ac_cv_c_float_format='IEEE (little-endian)'
     (inputs '())
     (propagated-inputs '())
     (arguments
-     `(#:implicit-inputs? #f
-       #:parallel-build? #f
-       #:guile ,%bootstrap-guile
-       #:configure-flags '("LIBS=-lc -lnss_files -lnss_dns -lresolv")
-       #:phases
-       (modify-phases %standard-phases
-         (replace 'check
-           (lambda _
-             (invoke "./make" "--version")))
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (bin (string-append out "/bin")))
-               (install-file "make" bin)))))))))
+     (list
+      #:implicit-inputs? #f
+      #:parallel-build? #f
+      #:guile %bootstrap-guile
+      #:configure-flags #~(list "LIBS=-lc -lnss_files -lnss_dns -lresolv")
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'check
+            (lambda _
+              (invoke "./make" "--version")))
+          (replace 'install
+            (lambda _
+              (install-file "make" (string-append #$output "/bin")))))))))
 
 (define (%boot-mesboot1-inputs)
   `(("binutils" ,binutils-mesboot1)

Reply via email to