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)
|
||||
|
||||
(unless #+@(if snippet
|
||||
#~((let ((module (make-fresh-user-module)))
|
||||
(module-use-interfaces!
|
||||
module
|
||||
(map resolve-interface '#+modules))
|
||||
((@ (system base compile) compile)
|
||||
'#+snippet
|
||||
#:to 'value
|
||||
#:opts %auto-compilation-options
|
||||
#:env module)))
|
||||
#~())
|
||||
(unless #+(if snippet
|
||||
#~(let ((module (make-fresh-user-module)))
|
||||
(module-use-interfaces!
|
||||
module
|
||||
(map resolve-interface '#+modules))
|
||||
((@ (system base compile) compile)
|
||||
'#+snippet
|
||||
#:to 'value
|
||||
#:opts %auto-compilation-options
|
||||
#:env module))
|
||||
#~#t)
|
||||
(format (current-error-port)
|
||||
"snippet returned false, indicating failure~%"))
|
||||
|
||||
|
|
Loading…
Reference in New Issue