me/guix
Archived
1
0
Fork 0
Code Activity

gexp: Use cross extensions when cross-compiling.

Browse source 
* 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:
Mathieu Othacehe 2019-08-18 11:00:23 +02:00
parent 92f92a0fc8
commit 396b05f04e
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 1 additions and 1 deletions

2
guix/gexp.scm
View file

@ -1508,7 +1508,7 @@ are searched for in PATH. Return #f when MODULES and EXTENSIONS are empty."
(gexp (eval-when (expand load eval) (gexp (eval-when (expand load eval)
;; Augment the load paths and delete duplicates. Do that ;; Augment the load paths and delete duplicates. Do that
;; without loading (srfi srfi-1) or anything. ;; without loading (srfi srfi-1) or anything.
(let ((extensions '((ungexp-native-splicing extensions))) (let ((extensions '((ungexp-splicing extensions)))
(prepend (lambda (items lst) (prepend (lambda (items lst)
;; This is O(N²) but N is typically small. ;; This is O(N²) but N is typically small.
(let loop ((items items) (let loop ((items items)