From 6de3c1088e0fe7e7df487ff1d74ffdf294e79c40 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 7 Feb 2023 11:25:42 +0100 Subject: 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 -- cgit v1.2.3