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
					
				
					 1 changed files with 11 additions and 11 deletions
				
			
		| 
						 | 
				
			
			@ -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~%"))
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue