From 8e6ecb14006a96ef6620005223597d6bf4e8ebdf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 6 Jul 2012 00:51:55 +0200
Subject: [PATCH] utils: Make sure `substitute' writes all its output.

* guix/build/utils.scm (substitute): Close OUT before renaming it.
---
 guix/build/utils.scm | 1 +
 1 file changed, 1 insertion(+)

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 @@ (define (substitute file pattern match-proc)
                            (display line out)
                            (newline out)))
                     (loop (read-line in)))))))
+        (close out)
         (rename-file template file))
       (lambda (key . args)
         (false-if-exception (delete-file template))))))