diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-07-06 00:51:55 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-07-06 00:51:55 +0200 |
| commit | 8e6ecb14006a96ef6620005223597d6bf4e8ebdf (patch) | |
| tree | aa8787a690bde35eb333823cfff9cb5738321062 | |
| parent | 1a7d8e2048768ba093b2b09aa265e7abcbce7a31 (diff) | |
utils: Make sure `substitute' writes all its output.
* guix/build/utils.scm (substitute): Close OUT before renaming it.
| -rw-r--r-- | guix/build/utils.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 305ce7d4ee2..1808c63ce58 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm | |||
| @@ -170,6 +170,7 @@ MATCH OUTPUT-PORT)." | |||
| 170 | (display line out) | 170 | (display line out) |
| 171 | (newline out))) | 171 | (newline out))) |
| 172 | (loop (read-line in))))))) | 172 | (loop (read-line in))))))) |
| 173 | (close out) | ||
| 173 | (rename-file template file)) | 174 | (rename-file template file)) |
| 174 | (lambda (key . args) | 175 | (lambda (key . args) |
| 175 | (false-if-exception (delete-file template)))))) | 176 | (false-if-exception (delete-file template)))))) |