me/guix
Archived
1
0
Fork 0
Code Activity

gnu: scummvm: Use G-expressions.

Browse source 
* gnu/packages/emulators.scm (scummvm)[arguments]: Use G-expressions.
This commit is contained in:
Nicolas Goaziou 2022-10-18 18:03:49 +02:00
parent e598e2a57b
commit e39b4902a0
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/emulators.scm
View file

@ -1515,21 +1515,21 @@ multi-system game/emulator system.")
(base32 "1s8psdn3a3hqvvfgmlfxrqqdw8hbr0zyrvirzsnzh6yxmgpvkbwg")))) (base32 "1s8psdn3a3hqvvfgmlfxrqqdw8hbr0zyrvirzsnzh6yxmgpvkbwg"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ;require "git" (list
#:configure-flags (list "--enable-release") ;for optimizations #:tests? #f ;require "git"
#:phases #:configure-flags #~(list "--enable-release") ;for optimizations
(modify-phases %standard-phases #:phases
(replace 'configure #~(modify-phases %standard-phases
;; configure does not work followed by both "SHELL=..." and (replace 'configure
;; "CONFIG_SHELL=..."; set environment variables instead ;; configure does not work followed by both "SHELL=..." and
(lambda* (#:key inputs outputs configure-flags #:allow-other-keys) ;; "CONFIG_SHELL=..."; set environment variables instead
(let* ((out (assoc-ref outputs "out")) (lambda* (#:key inputs configure-flags #:allow-other-keys)
(bash (search-input-file inputs "/bin/bash")) (let ((bash (search-input-file inputs "/bin/bash"))
(flags `(,(string-append "--prefix=" out) (flags `(,(string-append "--prefix=" #$output)
,@configure-flags))) ,@configure-flags)))
(setenv "SHELL" bash) (setenv "SHELL" bash)
(setenv "CONFIG_SHELL" bash) (setenv "CONFIG_SHELL" bash)
(apply invoke "./configure" flags))))))) (apply invoke "./configure" flags)))))))
(native-inputs (native-inputs
(list nasm pkg-config)) (list nasm pkg-config))
(inputs (inputs