mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

flush output when writing .go files

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2009-02-13 21:48:56 +01:00
parent 34898db352
commit 5a0df7be5f
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/system/base/compile.scm
View file

@ -78,6 +78,7 @@
(with-throw-handler #t (with-throw-handler #t
(lambda () (lambda ()
(proc tmp) (proc tmp)
(close-port tmp)
(rename-file template filename)) (rename-file template filename))
(lambda args (lambda args
(delete-file template))))))) (delete-file template)))))))