From d91cfbdf36088046aeb9518808603201063792fb Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 6 Apr 2020 14:26:43 -0700 Subject: [PATCH] wiff --- hyphenate/hyphenate/private/bootstrap.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hyphenate/hyphenate/private/bootstrap.rkt b/hyphenate/hyphenate/private/bootstrap.rkt index aa3c8886..d5994008 100644 --- a/hyphenate/hyphenate/private/bootstrap.rkt +++ b/hyphenate/hyphenate/private/bootstrap.rkt @@ -55,7 +55,8 @@ (with-output-to-file cache-path (λ () (s-exp->fasl (dynamic-require module-path id-sym) (current-output-port))) #:exists 'replace)) - (fasl->s-exp (open-input-file cache-path))) + (with-input-from-file cache-path + (λ () (fasl->s-exp (current-input-port))))) (define-syntax (mb stx) (syntax-case stx ()