Browse Source

build-self: Add missing 'close-pipe' call.

* build-aux/build-self.scm (build): Call 'close-pipe'.
gn-latest-20200428
Ludovic Courtès 3 years ago
parent
commit
f27a712840
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
1 changed files with 9 additions and 7 deletions
  1. +9
    -7
      build-aux/build-self.scm

+ 9
- 7
build-aux/build-self.scm View File

@ -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)))


Loading…
Cancel
Save