From a4fcfade7f55863b133447b33e407d9da79e0e1b Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 6 Dec 2023 10:05:44 +0000 Subject: Fix the return value for fold-builds --- guix-build-coordinator/client-communication.scm | 12 ++++++++---- 1 file 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) -- cgit v1.2.3