From f27a7128406f768fc8900144cafafe00aa2d7743 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 8 Apr 2018 21:11:37 +0200 Subject: [PATCH] build-self: Add missing 'close-pipe' call. * build-aux/build-self.scm (build): Call 'close-pipe'. --- build-aux/build-self.scm | 16 +++++++++------- 1 file 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 @@ (define* (build source (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)))