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:
Mark H Weaver 2018-03-16 05:17:30 -04:00
parent 812cee6a07
commit 00d9494d80
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 11 additions and 11 deletions

View File

@ -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~%"))