diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-12-06 10:05:44 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-12-06 10:05:44 +0000 |
| commit | a4fcfade7f55863b133447b33e407d9da79e0e1b (patch) | |
| tree | e0356db19c7cfa14232744a438cdeaa9bb209bf9 | |
| parent | 80c17e9ba216d6376aba7ea9cef9246ebbf1f42b (diff) | |
| download | build-coordinator-a4fcfade7f55863b133447b33e407d9da79e0e1b.tar build-coordinator-a4fcfade7f55863b133447b33e407d9da79e0e1b.tar.gz | |
Fix the return value for fold-builds
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 21d9e67..8b2b9a2 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -872,10 +872,14 @@ (response-port response)) (raise-exception exn)) (lambda () - (stream-fold proc init builds-stream) - (close-port - (response-port response)))) - #:unwind? #t))) + (call-with-values + (lambda () + (stream-fold proc init builds-stream)) + (lambda vals + (close-port + (response-port response)) + (apply values vals)))) + #:unwind? #t)))) (define (request-output-details coordinator-uri output) |