04/12: gnu: libsmf: Use gexp.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 6de3c1088e0fe7e7df487ff1d74ffdf294e79c40
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Feb 7 11:25:42 2023 +0100

    gnu: libsmf: Use gexp.
    
    * gnu/packages/music.scm (libsmf)[arguments]: Use gexp.
---
 gnu/packages/music.scm | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 221d97369d..15ba78060c 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -4682,21 +4682,19 @@ inventory, and orders.")
     (outputs '("out"
                "static")) ; 88KiB of .a files
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'move-static-libraries
-           (lambda* (#:key outputs #:allow-other-keys)
-             ;; Move static libraries to the "static" output.
-             (let* ((out    (assoc-ref outputs "out"))
-                    (lib    (string-append out "/lib"))
-                    (static (assoc-ref outputs "static"))
-                    (slib   (string-append static "/lib")))
-               (mkdir-p slib)
-               (for-each (lambda (file)
-                           (install-file file slib)
-                           (delete-file file))
-                         (find-files lib "\\.a$"))
-               #t))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'move-static-libraries
+            (lambda _
+              ;; Move static libraries to the "static" output.
+              (let ((lib  (string-append #$output "/lib"))
+                    (slib (string-append #$output:static "/lib")))
+                (mkdir-p slib)
+                (for-each (lambda (file)
+                            (install-file file slib)
+                            (delete-file file))
+                          (find-files lib "\\.a$"))))))))
     (inputs
      (list readline glib))
     (native-inputs