summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/cuirass/base.scm1
1 files changed, 0 insertions, 1 deletions
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)))