01/05: store: 'run-with-store' has a #:target parameter.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 45bba47510a3768c59060373d2cc7beca3cd1b07
Author: Ludovic Courtès <address@hidden>
Date:   Tue Sep 12 22:19:44 2017 +0200

    store: 'run-with-store' has a #:target parameter.
    
    * guix/store.scm (run-with-store): Add #:target and honor it.
---
 guix/store.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/store.scm b/guix/store.scm
index 00d1e26..d571122 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -1429,7 +1429,8 @@ where FILE is the entry's absolute file name and STAT is 
the result of
 (define* (run-with-store store mval
                          #:key
                          (guile-for-build (%guile-for-build))
-                         (system (%current-system)))
+                         (system (%current-system))
+                         (target #f))
   "Run MVAL, a monadic value in the store monad, in STORE, an open store
 connection, and return the result."
   ;; Initialize the dynamic bindings here to avoid bad surprises.  The
@@ -1437,7 +1438,7 @@ connection, and return the result."
   ;; bind-time and not at call time, which can be disconcerting.
   (parameterize ((%guile-for-build guile-for-build)
                  (%current-system system)
-                 (%current-target-system #f))
+                 (%current-target-system target))
     (call-with-values (lambda ()
                         (run-with-state mval store))
       (lambda (result store)