From d47491966338076c68c0818cacf633ba835821a7 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 6 Apr 2020 10:40:42 -0700 Subject: [PATCH] flush output --- hyphenate/hyphenate/private/bootstrap.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hyphenate/hyphenate/private/bootstrap.rkt b/hyphenate/hyphenate/private/bootstrap.rkt index 7ac68e61..b878cf56 100644 --- a/hyphenate/hyphenate/private/bootstrap.rkt +++ b/hyphenate/hyphenate/private/bootstrap.rkt @@ -52,7 +52,9 @@ (unless (and (file-exists? cache-path) (> (file-or-directory-modify-seconds cache-path) (file-or-directory-modify-seconds module-path))) - (s-exp->fasl (dynamic-require module-path id-sym) (open-output-file cache-path #:exists 'replace))) + (define op (open-output-file cache-path #:exists 'replace)) + (s-exp->fasl (dynamic-require module-path id-sym) op) + (flush-output op)) (fasl->s-exp (open-input-file cache-path))) (define-syntax (mb stx)