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

commit d3e6c1cc63a115b0e53614d7363c41cc1736ee44
Author: Nicolas Graves <[email protected]>
AuthorDate: Wed Feb 18 00:11:47 2026 +0100

    gnu: gawk-mesboot: Improve style.
    
    * gnu/packages/commencement.scm (gawk-mesboot)[arguments]: Improve
    style, use G-expressions.
    
    Change-Id: I335853c99644bf6ea79312c808df154ca0c35d6d
    Signed-off-by: Ludovic Courtès <[email protected]>
---
 gnu/packages/commencement.scm | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 2a058633e8..afe17536e7 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -1550,22 +1550,22 @@ ac_cv_c_float_format='IEEE (little-endian)'
     (inputs '())
     (propagated-inputs '())
     (arguments
-     `(#:implicit-inputs? #f
-       #:parallel-build? #f
-       #:guile ,%bootstrap-guile
-       #:configure-flags '("ac_cv_func_connect=no")
-       #:make-flags '("gawk")
-       #:phases
-       (modify-phases %standard-phases
-         (replace 'check
-           (lambda _
-             (invoke "./gawk" "--version")))
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (bin (string-append out "/bin")))
-               (install-file "gawk" bin)
-               (symlink "gawk" (string-append bin "/awk"))))))))))
+     (list
+      #:implicit-inputs? #f
+      #:parallel-build? #f
+      #:guile %bootstrap-guile
+      #:configure-flags #~(list "ac_cv_func_connect=no")
+      #:make-flags #~(list "gawk")
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'check
+            (lambda _
+              (invoke "./gawk" "--version")))
+          (replace 'install
+            (lambda _
+              (let ((bin (string-append #$output "/bin")))
+                (install-file "gawk" bin)
+                (symlink "gawk" (string-append bin "/awk"))))))))))
 
 (define (%boot-mesboot3-inputs)
   `(("binutils" ,binutils-mesboot)

Reply via email to