diff options
| -rw-r--r-- | srfi/srfi-64.upstream.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/srfi/srfi-64.upstream.scm b/srfi/srfi-64.upstream.scm index 1ea3bd9a9e..45a7af3785 100644 --- a/srfi/srfi-64.upstream.scm +++ b/srfi/srfi-64.upstream.scm @@ -314,7 +314,9 @@ (guile-2 (with-fluids ((%default-port-encoding "UTF-8")) - (open-output-file log-file-name))) + (let ((p (open-output-file log-file-name))) + (setvbuf p _IOLBF) + p))) (else (open-output-file log-file-name))))) (display "%%%% Starting test " log-file) (display suite-name log-file) |