utils: Make sure `substitute' writes all its output.

* guix/build/utils.scm (substitute): Close OUT before renaming it.
2012-07-06 00:51:55 +02:00 · 2012-07-06 00:51:55 +02:00 · 8e6ecb1400
parent 1a7d8e2048
commit 8e6ecb1400
1 changed files with 1 additions and 0 deletions
--- 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))))))