futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

build-system/gnu: ‘package-with-extra-configure-variable’ uses gexps.

Browse Source 
This is required in cases where P uses gexps.

* guix/build-system/gnu.scm (package-with-extra-configure-variable): Use
gexps.

Change-Id: If5cbabc946cfcaf39c040a79f9495760639d44e2
This commit is contained in:
Ludovic Courtès 2024-01-11 15:47:57 +01:00
parent 745177cea5
commit 724c1a120a
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
guix/build-system/gnu.scm
View File

@ -189,21 +189,22 @@ flags for VARIABLE, the associated value is augmented."
(input input))
inputs))
(package (inherit p)
(package
(inherit p)
(arguments
(let ((args (package-arguments p)))
(substitute-keyword-arguments args
((#:configure-flags flags)
(let* ((var= (string-append variable "="))
(len (string-length var=)))
`(cons ,(string-append var= value)
(map (lambda (flag)
(if (string-prefix? ,var= flag)
(string-append
,(string-append var= value " ")
(substring flag ,len))
flag))
,flags)))))))
#~(cons #$(string-append var= value)
(map (lambda (flag)
(if (string-prefix? #$var= flag)
(string-append
#$(string-append var= value " ")
(substring flag #$len))
flag))
#$flags)))))))
(replacement
(let ((replacement (package-replacement p)))
(and replacement