summary refs log tree commit diff
path: root/gnu
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2022-01-04 20:23:05 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2022-01-05 03:54:04 +0100
commit0e96a71816eca22aab39f6cfdf0bae1f9d92811d (patch)
tree779e89267c601a0329e8115712adf6512b7d6dd2 /gnu
parent1cba8def9f7836a201942cd7c14d1d423f78b5b5 (diff)
downloadguix-0e96a71816eca22aab39f6cfdf0bae1f9d92811d.tar.gz
gnu: amsynth: Use G-expressions.
* gnu/packages/music.scm (amsynth)[arguments]:
Rewrite as G-expressions.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/music.scm21
1 files changed, 10 insertions, 11 deletions
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