diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-05-28 14:56:38 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-05-28 14:56:38 +0100 |
| commit | 102c9530da104d2612fbd19c8f374ee126eabd5d (patch) | |
| tree | 1877e4df34dd5ddbc75473bdf317d0b715923ff9 | |
| parent | 13d64578862d44b08f8bb7596b93bd10227b93ce (diff) | |
| download | build-coordinator-102c9530da104d2612fbd19c8f374ee126eabd5d.tar build-coordinator-102c9530da104d2612fbd19c8f374ee126eabd5d.tar.gz | |
Have with-gc-protection return the thunk return values properly
| -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) |