better

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))
+  (with-output-to-file wordidx-file
-  (s-exp->fasl (make-word-recs) op)
+    (λ () (s-exp->fasl (make-word-recs) (current-output-port)))
-  (flush-output op))
+    #:exists 'replace))
 
 (define wordrecs
   (fasl->s-exp (open-input-file (and