From 3afa3aa73a35364f8c429334ac68f50f719f5b22 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Thu, 6 Feb 2025 22:34:58 +0300
Subject: [PATCH] gnu: guilescript: Use GEXPs.

* gnu/packages/guile-xyz.scm (guilescript): Use GEXPs.

Change-Id: I004186fef0c270589f6cac2f1777fbda3fa7718b
---
 gnu/packages/guile-xyz.scm | 41 +++++++++++++++++++-------------------
 1 file changed, 21 insertions(+), 20 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index dc5eeee5eadd57210a31252a12e9219dd89d0636..0aaff48bc87ed880facf90c5a57e5bc39309d773 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -289,26 +289,27 @@ more.")
                 "15bvgklv77kvkl8dizriqblfir6rid5nm79ymi3m2fvpd7wf77qy"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:make-flags '("GUILE_AUTO_COMPILE=0")
-       #:modules (((guix build guile-build-system)
-                   #:select (target-guile-effective-version))
-                  ,@%default-gnu-modules)
-       #:imported-modules ((guix build guile-build-system)
-                           ,@%default-gnu-imported-modules)
-       #:phases (modify-phases %standard-phases
-                  (add-after 'install 'wrap-guilescript
-                    (lambda* (#:key outputs #:allow-other-keys)
-                      (let* ((out (assoc-ref outputs "out"))
-                             (bin (string-append out "/bin"))
-                             (version (target-guile-effective-version))
-                             (scm (string-append "/share/guile/site/" version))
-                             (go (string-append "/lib/guile/" version "/site-ccache")))
-                        (wrap-program (string-append bin "/guilescript")
-                          `("GUILE_LOAD_PATH" prefix
-                            (,(string-append out scm)))
-                          `("GUILE_LOAD_COMPILED_PATH" prefix
-                            (,(string-append out go)))))
-                      #t)))))
+     (list #:make-flags #~(list "GUILE_AUTO_COMPILE=0")
+           #:modules `(((guix build guile-build-system)
+                        #:select (target-guile-effective-version))
+                       ,@%default-gnu-modules)
+           #:imported-modules `((guix build guile-build-system)
+                                ,@%default-gnu-imported-modules)
+           #:phases #~(modify-phases %standard-phases
+                        (add-after 'install 'wrap-guilescript
+                          (lambda _
+                            (let* ((bin (string-append #$output "/bin"))
+                                   (version (target-guile-effective-version))
+                                   (scm (string-append "/share/guile/site/"
+                                                       version))
+                                   (go (string-append "/lib/guile/"
+                                                      version
+                                                      "/site-ccache")))
+                              (wrap-program (string-append bin "/guilescript")
+                                `("GUILE_LOAD_PATH" prefix
+                                  (,(string-append #$output scm)))
+                                `("GUILE_LOAD_COMPILED_PATH" prefix
+                                  (,(string-append #$output go))))))))))
     (native-inputs (list autoconf automake pkg-config))
     (inputs (list guile-3.0 bash-minimal))
     (home-page "https://github.com/aconchillo/guilescript")