diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-04-08 21:11:37 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-04-08 21:11:37 +0200 |
| commit | f27a7128406f768fc8900144cafafe00aa2d7743 (patch) | |
| tree | 24086d1612d55f4c532e22f1bcaeca1d4af46bbe /build-aux | |
| parent | 16c28becf2a2fcd48f52b83dc17889587b806615 (diff) | |
| download | patches-f27a7128406f768fc8900144cafafe00aa2d7743.tar patches-f27a7128406f768fc8900144cafafe00aa2d7743.tar.gz | |
build-self: Add missing 'close-pipe' call.
* build-aux/build-self.scm (build): Call 'close-pipe'.
Diffstat (limited to 'build-aux')
| -rw-r--r-- | build-aux/build-self.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm index 5ec76a588f..bccb7a959e 100644 --- a/build-aux/build-self.scm +++ b/build-aux/build-self.scm @@ -277,14 +277,16 @@ files." (mbegin %store-monad (show-what-to-build* (list build)) (built-derivations (list build)) - (let ((pipe (begin - (setenv "GUILE_WARN_DEPRECATED" "no") ;be quiet and drive - (open-pipe* OPEN_READ - (derivation->output-path build) - source system)))) - (match (get-string-all pipe) + (let* ((pipe (begin + (setenv "GUILE_WARN_DEPRECATED" "no") ;be quiet and drive + (open-pipe* OPEN_READ + (derivation->output-path build) + source system))) + (str (get-string-all pipe)) + (status (close-pipe pipe))) + (match str ((? eof-object?) - (error "build program failed" build)) + (error "build program failed" (list build status))) ((? derivation-path? drv) (mbegin %store-monad (return (newline (current-output-port))) |