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-08 20:28:31 +0100 |
| commit | 5d52d10661635ece0db9ffb89ab57f5f937221aa (patch) | |
| tree | 3ee157c6846b9cedf235cb26a805d067c667e434 | |
| parent | c32897b6e409c94fca4102f68d80db95e60c5f37 (diff) | |
| download | patches-5d52d10661635ece0db9ffb89ab57f5f937221aa.tar patches-5d52d10661635ece0db9ffb89ab57f5f937221aa.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 f99fa581a8..5768a2ba7a 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. ;;; @@ -161,6 +161,7 @@ current-system set-current-system current-target-system + set-current-target text-file interned-file interned-file-tree @@ -1823,6 +1824,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. |