branch: master
commit 5c5790ad21d88599bb07dd9669708d8b58a47124
Author: Ludovic Courtès <[email protected]>
Date: Sun Nov 3 11:46:34 2019 +0100
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)))
