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)
;; 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)