[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: store: Add set-current-target procedure.
From: |
guix-commits |
Subject: |
01/02: store: Add set-current-target procedure. |
Date: |
Fri, 6 Mar 2020 04:17:17 -0500 (EST) |
mothacehe pushed a commit to branch core-updates
in repository guix.
commit fdae0fa50acfee57854f6978c3b300bc46aedc68
Author: Mathieu Othacehe <address@hidden>
AuthorDate: Fri Mar 6 10:06:02 2020 +0100
store: Add set-current-target procedure.
* guix/store.scm (set-current-target): New exported procedure.
---
guix/store.scm | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/guix/store.scm b/guix/store.scm
index 77ee23f..c616484 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
<address@hidden>
;;; Copyright © 2018 Jan Nieuwenhuizen <address@hidden>
-;;; Copyright © 2019 Mathieu Othacehe <address@hidden>
+;;; Copyright © 2019, 2020 Mathieu Othacehe <address@hidden>
;;;
;;; 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.