mirror of
git://git.savannah.gnu.org/guix.git
synced 2023-12-14 03:33:07 +01:00
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)
|
(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)
|
||||||
|
|
Loading…
Reference in a new issue