wiff

5 years ago · 7e910d83b7
parent e4123cac46
commit 7e910d83b7
1 changed files with 5 additions and 4 deletions
--- a/words/index.rkt
+++ b/words/index.rkt
@ -69,10 +69,11 @@
    #:exists 'replace))

 (define wordrecs
-  (fasl->s-exp (open-input-file (and
-                                 (unless (file-exists? wordidx-file)
-                                   (regenerate-word-index!))
-                                 wordidx-file))))
+  (and
+   (unless (file-exists? wordidx-file)
+     (regenerate-word-index!))
+   (with-input-from-file wordidx-file
+     (λ () (fasl->s-exp (current-input-port))))))

 (define (post-installer home-dir)
  (regenerate-word-index!))