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

13
gnu/packages/music.scm
View file

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