packages: patch-and-repack: Fix snippet handling.
This is a followup to commit 5003aeaf2560d6ddebcf980a94785fba77e00f34. * guix/packages.scm (patch-and-repack): For the snippet, generate a single boolean expression for 'unless', instead of the list of expressions which had previously been spliced into an 'and' form (prior to commit 5003aea).
This commit is contained in:
parent
812cee6a07
commit
00d9494d80
|
@ -566,17 +566,17 @@ specifies modules in scope when evaluating SNIPPET."
|
||||||
|
|
||||||
(for-each apply-patch '#+patches)
|
(for-each apply-patch '#+patches)
|
||||||
|
|
||||||
(unless #+@(if snippet
|
(unless #+(if snippet
|
||||||
#~((let ((module (make-fresh-user-module)))
|
#~(let ((module (make-fresh-user-module)))
|
||||||
(module-use-interfaces!
|
(module-use-interfaces!
|
||||||
module
|
module
|
||||||
(map resolve-interface '#+modules))
|
(map resolve-interface '#+modules))
|
||||||
((@ (system base compile) compile)
|
((@ (system base compile) compile)
|
||||||
'#+snippet
|
'#+snippet
|
||||||
#:to 'value
|
#:to 'value
|
||||||
#:opts %auto-compilation-options
|
#:opts %auto-compilation-options
|
||||||
#:env module)))
|
#:env module))
|
||||||
#~())
|
#~#t)
|
||||||
(format (current-error-port)
|
(format (current-error-port)
|
||||||
"snippet returned false, indicating failure~%"))
|
"snippet returned false, indicating failure~%"))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue