From 102c9530da104d2612fbd19c8f374ee126eabd5d Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 28 May 2021 14:56:38 +0100
Subject: Have with-gc-protection return the thunk return values properly

---
 guix-build-coordinator/utils.scm | 6 ++++--
 1 file 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)
-- 
cgit v1.2.3