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).

1 files changed, 11 insertions, 11 deletions

diff --git a/guix/packages.scm b/guix/packages.scm
index 41d98e1414..0e18f520a8 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -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~%"))