diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2020-03-06 10:06:02 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2020-03-06 10:16:31 +0100 |
| commit | fdae0fa50acfee57854f6978c3b300bc46aedc68 (patch) | |
| tree | f8977ee7675ab16b928efaa68db0975a45957f4b | |
| parent | aca00b0a367581ba0489641e0d1c451de4416d7a (diff) | |
| download | patches-fdae0fa50acfee57854f6978c3b300bc46aedc68.tar patches-fdae0fa50acfee57854f6978c3b300bc46aedc68.tar.gz | |
store: Add set-current-target procedure.
* guix/store.scm (set-current-target): New exported procedure.
| -rw-r--r-- | guix/store.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix/store.scm b/guix/store.scm index 77ee23fdd8..c616484577 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -1,7 +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> +;;; Copyright © 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -162,6 +162,7 @@ current-system set-current-system current-target-system + set-current-target text-file interned-file interned-file-tree @@ -1863,6 +1864,11 @@ the store." (lambda (state) (values (%current-target-system) state))) +(define-inlinable (set-current-target target) + ;; Set the %CURRENT-TARGET-SYSTEM fluid at bind time. + (lambda (state) + (values (%current-target-system target) state))) + (define %guile-for-build ;; The derivation of the Guile to be used within the build environment, ;; when using 'gexp->derivation' and co. |