diff options
author | Ludovic Courtès <ludo@gnu.org> | 2024-01-11 15:47:57 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-01-11 15:49:20 +0100 |
commit | 844fef43fd41a769f68aa1059ce41739ef53a0c4 (patch) | |
tree | 940b6718069119408247c78b14dfc6e28b558c0d /guix/build-system | |
parent | ec1ce76a3a604efdc329b482fb46fa03cd11e184 (diff) |
build-system/gnu: ‘package-with-extra-configure-variable’ uses gexps.
This is required in cases where P uses gexps.
* guix/build-system/gnu.scm (package-with-extra-configure-variable): Use
gexps.
Change-Id: If5cbabc946cfcaf39c040a79f9495760639d44e2
Diffstat (limited to 'guix/build-system')
-rw-r--r-- | guix/build-system/gnu.scm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm index fd97c73be4..3a314d34b7 100644 --- a/guix/build-system/gnu.scm +++ b/guix/build-system/gnu.scm @@ -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 |