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

commit 46edccfc1f98135cef85148d3b247f7a3fb69fbd
Author: Nicolas Graves <[email protected]>
AuthorDate: Tue Feb 17 13:55:54 2026 +0100

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

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 9e1de3bac95..a91640568d7 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -1078,22 +1078,21 @@ ac_cv_c_float_format='IEEE (little-endian)'
     (native-inputs `(("kernel-headers" ,%bootstrap-linux-libre-headers)
                      ,@(%boot-tcc-inputs)))
     (arguments
-     `(#:implicit-inputs? #f
-       #:guile ,%bootstrap-guile
-       #:tests? #f
-       #:strip-binaries? #f
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'build)
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (include (string-append out "/include"))
-                    (headers (assoc-ref %build-inputs "kernel-headers")))
-               (mkdir-p include)
-               (copy-recursively "include" out)
-               (copy-recursively headers out)))))))))
+     (list
+      #:implicit-inputs? #f
+      #:guile %bootstrap-guile
+      #:tests? #f
+      #:strip-binaries? #f
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)
+          (delete 'build)
+          (replace 'install
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let* ((include (string-append #$output "/include"))
+                     (headers (assoc-ref inputs "kernel-headers")))
+                (copy-recursively "include" #$output)
+                (copy-recursively headers #$output)))))))))
 
 (define glibc-mesboot0
   ;; GNU C Library 2.2.5 is the most recent glibc that we managed to build

Reply via email to