me/guix
Archived
1
0
Fork 0
Code Activity

gnu: setbfree: Use G-expressions.

Browse source 
* gnu/packages/music.scm (setbfree)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-16 02:00:02 +02:00
parent 12f0ffe2b8
commit 1cf84fb13b
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 19 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
gnu/packages/music.scm
View file

@ -2647,24 +2647,25 @@ Paul), and specifically the PaulXStretch version from Xenakios.")
"1lzrrpm57pilvwxpr1qhnx6273md2k96ygxjlhi5gqjdl0nl3z95")))) "1lzrrpm57pilvwxpr1qhnx6273md2k96ygxjlhi5gqjdl0nl3z95"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no "check" target (list
#:make-flags #:tests? #f ; no "check" target
(list (string-append "PREFIX=" (assoc-ref %outputs "out")) #:make-flags
(string-append "FONTFILE=" #~(cons* (string-append "PREFIX=" #$output)
(assoc-ref %build-inputs "font-bitstream-vera") (string-append "FONTFILE="
"/share/fonts/truetype/VeraBd.ttf") #$(this-package-input "font-bitstream-vera")
;; Disable unsupported optimization flags on non-x86 "/share/fonts/truetype/VeraBd.ttf")
,@(let ((system (or (%current-target-system) ;; Disable unsupported optimization flags on non-x86
(%current-system)))) (let ((system #$(or (%current-target-system)
(if (or (string-prefix? "x86_64" system) (%current-system))))
(string-prefix? "i686" system)) (if (or (string-prefix? "x86_64" system)
'() (string-prefix? "i686" system))
'("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3")))) '()
#:phases '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
(modify-phases %standard-phases #:phases
(add-before 'build 'set-CC-variable #~(modify-phases %standard-phases
(lambda _ (setenv "CC" ,(cc-for-target)))) (add-before 'build 'set-CC-variable
(delete 'configure)))) (lambda _ (setenv "CC" #$(cc-for-target))))
(delete 'configure))))
(inputs (inputs
(list jack-1 (list jack-1
lv2 lv2