flush output

master
Matthew Butterick 5 years ago
parent 5cc38ef78e
commit 9a7c0cf2b9

@ -64,7 +64,9 @@
(define (regenerate-word-index!) (define (regenerate-word-index!)
(make-parent-directory* wordidx-file) (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 (define wordrecs
(fasl->s-exp (open-input-file (and (fasl->s-exp (open-input-file (and

Loading…
Cancel
Save