better

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

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

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