diff options
-rw-r--r-- | guix/store.scm | 8 |
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)))) ;;; |