From 5a0df7be5ff3b0e4ec558cf3428b08d5086e3f77 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 13 Feb 2009 21:48:56 +0100
Subject: [PATCH] flush output when writing .go files

* module/system/base/compile.scm (call-with-output-file/atomic): Close
  the port we are writing to before renaming it, so that we flush output.
  Might fix some 0-length write errors that Jao was seeing.
---
 module/system/base/compile.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index d9abe9d08..4294daece 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -78,6 +78,7 @@
        (with-throw-handler #t
          (lambda ()
            (proc tmp)
+           (close-port tmp)
            (rename-file template filename))
          (lambda args
            (delete-file template)))))))