summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/store.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/guix/store.scm b/guix/store.scm
index 63425b3023..a12abc8671 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -917,10 +917,14 @@ permission bits are kept."
(guile-for-build (%guile-for-build))
(system (%current-system)))
"Run MVAL, a monadic value in the store monad, in STORE, an open store
-connection."
+connection, and return the result."
(parameterize ((%guile-for-build guile-for-build)
(%current-system system))
- (run-with-state mval store)))
+ (call-with-values (lambda ()
+ (run-with-state mval store))
+ (lambda (result store)
+ ;; Discard the state.
+ result))))
;;;