ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 22:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

packages: patch-and-repack: Fix snippet handling.

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

22
guix/packages.scm
View file

@ -566,17 +566,17 @@ (define (first-file directory)
(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~%"))