From 5c5790ad21d88599bb07dd9669708d8b58a47124 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 3 Nov 2019 11:46:34 +0100
Subject: base: 'build-derivations&' closes the build output port only once.

* src/cuirass/base.scm (build-derivations&): Remove extra 'close-port'
call in 'guard' clause.
---
 src/cuirass/base.scm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index c1e6383..143bc2e 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -423,7 +423,6 @@ Essentially this procedure inverts the inversion-of-control that
         (catch #t
           (lambda ()
             (guard (c ((store-error? c)
-                       (close-port output)
                        (atomic-box-set! result c)))
               (parameterize ((current-build-output-port output))
                 (let ((x (build-derivations store lst)))
-- 
cgit v1.2.3