base: 'build-derivations&' closes the build output port only once.

* src/cuirass/base.scm (build-derivations&): Remove extra 'close-port' call in 'guard' clause.
2019-11-03 11:46:34 +01:00 · 2019-11-03 11:46:34 +01:00 · 5c5790ad21
parent e20ff86d97
commit 5c5790ad21
1 changed files with 0 additions and 1 deletions
--- 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)))