ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

store: Add set-current-target procedure.

Browse source 
* guix/store.scm (set-current-target): New exported procedure.
This commit is contained in:
Mathieu Othacehe 2020-03-06 10:06:02 +01:00
parent aca00b0a36
commit fdae0fa50a
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/store.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Jan Nieuwenhuizen <janneke@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. ;;; This file is part of GNU Guix.
;;; ;;;
@ -162,6 +162,7 @@ (define-module (guix store)
current-system current-system
set-current-system set-current-system
current-target-system current-target-system
set-current-target
text-file text-file
interned-file interned-file
interned-file-tree interned-file-tree
@ -1863,6 +1864,11 @@ (define-inlinable (current-target-system)
(lambda (state) (lambda (state)
(values (%current-target-system) 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 (define %guile-for-build
;; The derivation of the Guile to be used within the build environment, ;; The derivation of the Guile to be used within the build environment,
;; when using 'gexp->derivation' and co. ;; when using 'gexp->derivation' and co.