From 4cc5b2a44e5e39f15918e19e69752102c5199df1 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 23 Jul 2023 02:00:00 +0200
Subject: [PATCH] gnu: rewritefs: Use G-expressions.

* gnu/packages/file-systems.scm (rewritefs)[arguments]:
Rewrite as G-expressions.
---
 gnu/packages/file-systems.scm | 33 ++++++++++++++++++---------------
 1 file changed, 18 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm
index 41f928fd2c..4589db965d 100644
--- a/gnu/packages/file-systems.scm
+++ b/gnu/packages/file-systems.scm
@@ -1786,21 +1786,24 @@ (define-public rewritefs
           (base32 "1w2rik0lhqm3wr68x51zs45gqfx79l7fi4p0sqznlfq7sz5s8xxn"))))
       (build-system gnu-build-system)
       (arguments
-       `(#:modules ((srfi srfi-26)
-                    ,@%gnu-build-system-modules)
-         #:make-flags
-         (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
-         #:test-target "test"
-         #:tests? #f                   ; all require a kernel with FUSE loaded
-         #:phases
-         (modify-phases %standard-phases
-           (delete 'configure)          ; no configure script
-           (add-after 'install 'install-examples
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let* ((out (assoc-ref outputs "out"))
-                      (doc (string-append out "/share/doc/" ,name "-" ,version)))
-                 (for-each (cut install-file <> (string-append doc "/examples"))
-                           (find-files "." "^config\\."))))))))
+       (list
+        #:modules
+        '((guix build gnu-build-system)
+          (guix build utils)
+          (srfi srfi-26))
+        #:make-flags
+        #~(list (string-append "PREFIX=" #$output))
+        #:test-target "test"
+        #:tests? #f                    ; all require a kernel with FUSE loaded
+        #:phases
+        #~(modify-phases %standard-phases
+            (delete 'configure)         ; no configure script
+            (add-after 'install 'install-examples
+              (lambda _
+                (let ((doc (string-append #$output "/share/doc/"
+                                          #$name "-" #$version)))
+                  (for-each (cut install-file <> (string-append doc "/examples"))
+                            (find-files "." "^config\\."))))))))
       (native-inputs
        (list pkg-config))
       (inputs