diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-01-06 18:16:19 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-06 21:41:07 +0100 |
| commit | afb82831fa4d8602859eb00056dd3f418ed363c9 (patch) | |
| tree | 54eb93c8f687777641b84e089d62ccb780ebc752 /build-aux/build-self.scm | |
| parent | 0f763db448758c8b7b9ae91d6870f75fc0ff987b (diff) | |
| download | patches-afb82831fa4d8602859eb00056dd3f418ed363c9.tar patches-afb82831fa4d8602859eb00056dd3f418ed363c9.tar.gz | |
build-self: Don't clobber the output port.
The newline is meant to follow the spinner's traces so it must go to the
error port as well.
* build-aux/build-self.scm (build): Send newline to the error port.
Diffstat (limited to 'build-aux/build-self.scm')
| -rw-r--r-- | build-aux/build-self.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm index 5b281c3bc9..c1a253dc87 100644 --- a/build-aux/build-self.scm +++ b/build-aux/build-self.scm @@ -420,7 +420,7 @@ files." (error "build program failed" (list build status))) ((? derivation-path? drv) (mbegin %store-monad - (return (newline (current-output-port))) + (return (newline (current-error-port))) ((store-lift add-temp-root) drv) (return (read-derivation-from-file drv)))) ("#f" |