diff options
author | Mathieu Othacehe <m.othacehe@gmail.com> | 2019-12-24 15:04:57 +0100 |
---|---|---|
committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2019-12-29 21:26:11 +0100 |
commit | e51de34309be7ba8105be66d45d7da4a64883b08 (patch) | |
tree | e02eae1937d2c0a93e860e1f886ced2a9c91bbb1 /guix/store.scm | |
parent | 4befbe1a0e28fdb37c3fb11ab497636b783d61d6 (diff) | |
download | patches-e51de34309be7ba8105be66d45d7da4a64883b08.tar patches-e51de34309be7ba8105be66d45d7da4a64883b08.tar.gz |
profiles: Fix profile-derivation cross-compilation.
* guix/store.scm (current-target-system): New exported monadic procedure.
* guix/profiles.scm (profile-derivation): Set target at bind time using the
above procedure.
Diffstat (limited to 'guix/store.scm')
-rw-r--r-- | guix/store.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix/store.scm b/guix/store.scm index cf25d347fc..f99fa581a8 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Jan Nieuwenhuizen <janneke@gnu.org> +;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -159,6 +160,7 @@ %guile-for-build current-system set-current-system + current-target-system text-file interned-file interned-file-tree @@ -1816,6 +1818,11 @@ the store." (lambda (state) (values (%current-system system) state))) +(define-inlinable (current-target-system) + ;; Consult the %CURRENT-TARGET-SYSTEM fluid at bind time. + (lambda (state) + (values (%current-target-system) state))) + (define %guile-for-build ;; The derivation of the Guile to be used within the build environment, ;; when using 'gexp->derivation' and co. |