aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-07-06 00:51:55 +0200
committerLudovic Courtès <ludo@gnu.org>2012-07-06 00:51:55 +0200
commit8e6ecb14006a96ef6620005223597d6bf4e8ebdf (patch)
treeaa8787a690bde35eb333823cfff9cb5738321062
parent1a7d8e2048768ba093b2b09aa265e7abcbce7a31 (diff)
downloadgnu-guix-8e6ecb14006a96ef6620005223597d6bf4e8ebdf.tar
gnu-guix-8e6ecb14006a96ef6620005223597d6bf4e8ebdf.tar.gz
utils: Make sure `substitute' writes all its output.
* guix/build/utils.scm (substitute): Close OUT before renaming it.
-rw-r--r--guix/build/utils.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index 305ce7d4ee..1808c63ce5 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -170,6 +170,7 @@ MATCH OUTPUT-PORT)."
(display line out)
(newline out)))
(loop (read-line in)))))))
+ (close out)
(rename-file template file))
(lambda (key . args)
(false-if-exception (delete-file template))))))