flush output

5 years ago · 9a7c0cf2b9
parent 5cc38ef78e
commit 9a7c0cf2b9
1 changed files with 3 additions and 1 deletions
--- a/words/index.rkt
+++ b/words/index.rkt
@ -64,7 +64,9 @@

 (define (regenerate-word-index!)
  (make-parent-directory* wordidx-file)
-  (s-exp->fasl (make-word-recs) (open-output-file wordidx-file #:exists 'replace)))
+  (define op (open-output-file wordidx-file #:exists 'replace))
+  (s-exp->fasl (make-word-recs) op)
+  (flush-output op))

 (define wordrecs
  (fasl->s-exp (open-input-file (and