From 0e96a71816eca22aab39f6cfdf0bae1f9d92811d Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Tue, 4 Jan 2022 20:23:05 +0100
Subject: gnu: amsynth: Use G-expressions.

* gnu/packages/music.scm (amsynth)[arguments]:
Rewrite as G-expressions.
---
 gnu/packages/music.scm | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

(limited to 'gnu')

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index abafd2550f..44fbe6fd28 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -2414,17 +2414,16 @@ special variant of additive synthesis.")
         (base32 "0xqcm3ggaj004gfmlsds2x6q8dxlz1akz6dbwkynv9vvdnizm91r"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-file-names
-           (lambda* (#:key inputs #:allow-other-keys)
-             (substitute* "src/GUI/editor_pane.c"
-               (("/usr/bin/unzip")
-                (string-append (assoc-ref inputs "unzip") "/bin/unzip")))
-             (substitute* "src/GUI/MainMenu.cpp"
-               (("/usr/bin/which")
-                (string-append (assoc-ref inputs "which") "/bin/which")))
-             #t)))))
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'patch-file-names
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (substitute* "src/GUI/editor_pane.c"
+                     (("/usr/bin/unzip")
+                      (search-input-file inputs "bin/unzip")))
+                   (substitute* "src/GUI/MainMenu.cpp"
+                     (("/usr/bin/which")
+                      (search-input-file inputs "bin/which"))))))))
     (inputs
      (list alsa-lib
            gtk+-2
-- 
cgit v1.2.3