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 ()