sharlatan pushed a commit to branch master
in repository guix.

commit 32f49d6c0767d2d2423750bd8c91e15d1018a851
Author: Sharlatan Hellseher <[email protected]>
AuthorDate: Thu Feb 13 09:08:36 2025 +0000

    gnu: filters: Use G-Expressions.
    
    * gnu/packages/toys.scm (filters): Use G-Expressions.
    [arguments]: Remove trailing #t from lambda.
    
    Change-Id: Iced42b1c99cf5c8fe7193f39f3cd9d44593792a6
---
 gnu/packages/toys.scm | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/gnu/packages/toys.scm b/gnu/packages/toys.scm
index bd7db83083..e096e52da7 100644
--- a/gnu/packages/toys.scm
+++ b/gnu/packages/toys.scm
@@ -163,22 +163,22 @@ This package provides just the utilities and no quotes.")
                       ""))))))
     (build-system gnu-build-system)
     (arguments
-     `(#:parallel-build? #f             ;y.tab.h fails otherwise
-       #:make-flags
-       (list (string-append "CC=" ,(cc-for-target))
-             (string-append "prefix=" (assoc-ref %outputs "out")))
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (add-after 'unpack 'respect-prefix
-           (lambda _
-             (substitute* "Makefile"
-               (("/usr/games")
-                "$(prefix)/bin/")
-               (("/usr")
-                "$(prefix)"))
-             #t)))
-       #:tests? #f))                    ; no test suite
+     (list
+      #:parallel-build? #f           ; y.tab.h fails otherwise
+      #:tests? #f                    ; no test suite
+      #:make-flags
+      #~(list (string-append "CC=" #$(cc-for-target))
+              (string-append "prefix=" #$output))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)
+          (add-after 'unpack 'respect-prefix
+            (lambda _
+              (substitute* "Makefile"
+                (("/usr/games")
+                 "$(prefix)/bin/")
+                (("/usr")
+                 "$(prefix)")))))))
     (native-inputs
      (list bison flex))
     (inputs

Reply via email to