diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-11-03 11:46:34 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-11-03 11:47:52 +0100 |
| commit | 5c5790ad21d88599bb07dd9669708d8b58a47124 (patch) | |
| tree | 4e49d5255e5c8d18e40986710c28418f59acf3d6 /src | |
| parent | e20ff86d97f7dd92dad140b5919e3cbdf2fb1ce6 (diff) | |
| download | cuirass-5c5790ad21d88599bb07dd9669708d8b58a47124.tar cuirass-5c5790ad21d88599bb07dd9669708d8b58a47124.tar.gz | |
base: 'build-derivations&' closes the build output port only once.
* src/cuirass/base.scm (build-derivations&): Remove extra 'close-port'
call in 'guard' clause.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/base.scm | 1 |
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))) |