diff options
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
| -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) |