diff options
| -rw-r--r-- | guix-build-coordinator/utils.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 9be4f4c..44a08c8 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -255,11 +255,10 @@ upcoming chunk." (define (with-gc-protection thunk) (monitor - (gc-disable) - (call-with-values thunk - (lambda vals - (gc-enable) - (apply values vals))))) + (dynamic-wind + gc-disable + thunk + gc-enable))) (define (make-gc-guard-port port) (define (%put-char c) |