From 0c8d90b5ab8e22c250b90bd759c8579089b303c8 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 6 Apr 2020 10:50:22 -0700 Subject: [PATCH] W(O)TF --- hyphenate/hyphenate/private/bootstrap.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hyphenate/hyphenate/private/bootstrap.rkt b/hyphenate/hyphenate/private/bootstrap.rkt index b878cf56..aa3c8886 100644 --- a/hyphenate/hyphenate/private/bootstrap.rkt +++ b/hyphenate/hyphenate/private/bootstrap.rkt @@ -52,9 +52,9 @@ (unless (and (file-exists? cache-path) (> (file-or-directory-modify-seconds cache-path) (file-or-directory-modify-seconds module-path))) - (define op (open-output-file cache-path #:exists 'replace)) - (s-exp->fasl (dynamic-require module-path id-sym) op) - (flush-output op)) + (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))) (define-syntax (mb stx)