From 7e910d83b73ad6ceba16ed07b14905878206b6f2 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 6 Apr 2020 14:26:31 -0700 Subject: [PATCH] wiff --- words/index.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/words/index.rkt b/words/index.rkt index 6bd0b95..2a65ed4 100644 --- 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!)) \ No newline at end of file