24/31: gnu: zchunk: Use G-expressions.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 3135d2cbfb85f7ede123d0af6ef2bdf8b4b1cb8d
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jul 9 02:00:04 2023 +0200

    gnu: zchunk: Use G-expressions.
    
    * gnu/packages/compression.scm (zchunk)[arguments]:
    Rewrite as G-expressions.  Use SEARCH-INPUT-FILE.
---
 gnu/packages/compression.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm
index 57b87ac1d2..63b6858afe 100644
--- a/gnu/packages/compression.scm
+++ b/gnu/packages/compression.scm
@@ -2373,13 +2373,14 @@ reading from and writing to ZIP archives.")
                 "19rw870150w1c730wzg2pn68ixmscq8cwa3vricqhwxs5l63r5wr"))))
     (build-system meson-build-system)
     (arguments
-     `(#:phases (modify-phases %standard-phases
-                  (add-after 'unpack 'patch-paths
-                    (lambda* (#:key inputs #:allow-other-keys)
-                      (substitute* "src/zck_gen_zdict.c"
-                        (("/usr/bin/zstd")
-                         (string-append (assoc-ref inputs "zstd")
-                                        "/bin/zstd"))))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-file-name
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "src/zck_gen_zdict.c"
+                (("/usr/(bin/zstd)" _ file)
+                 (string-append (search-input-file inputs file)))))))))
     (native-inputs
      (list pkg-config))
     (inputs