base: 'build-derivations&' closes the build output port only once.
* src/cuirass/base.scm (build-derivations&): Remove extra 'close-port' call in 'guard' clause.
This commit is contained in:
parent
e20ff86d97
commit
5c5790ad21
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue