3
5
Fork 0
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:
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

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)