diff options
| -rw-r--r-- | guix-build-coordinator/utils.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 5f74ed0..d142c78 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -256,8 +256,10 @@ upcoming chunk." (define (with-gc-protection thunk) (monitor (gc-disable) - (thunk) - (gc-enable))) + (call-with-values thunk + (lambda vals + (gc-enable) + (apply values vals))))) (define (make-gc-guard-port port) (define (%put-char c) |