gexp: Use cross extensions when cross-compiling.
* guix/gexp.scm (load-path-expression): Use ungexp-splicing instead of ungexp-native-splicing so that the cross extensions are used when target is set.
This commit is contained in:
		
							parent
							
								
									92f92a0fc8
								
							
						
					
					
						commit
						396b05f04e
					
				
					 1 changed files with 1 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -1508,7 +1508,7 @@ are searched for in PATH.  Return #f when MODULES and EXTENSIONS are empty."
 | 
			
		|||
         (gexp (eval-when (expand load eval)
 | 
			
		||||
                 ;; Augment the load paths and delete duplicates.  Do that
 | 
			
		||||
                 ;; without loading (srfi srfi-1) or anything.
 | 
			
		||||
                 (let ((extensions '((ungexp-native-splicing extensions)))
 | 
			
		||||
                 (let ((extensions '((ungexp-splicing extensions)))
 | 
			
		||||
                       (prepend (lambda (items lst)
 | 
			
		||||
                                  ;; This is O(N²) but N is typically small.
 | 
			
		||||
                                  (let loop ((items items)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue