SRFI-64: Make the log file's port line-buffered.

* srfi/srfi-64.upstream.scm (test-on-group-begin-simple): Make LOG-FILE
  line-buffered.
This commit is contained in:
Ludovic Courtès 2013-02-03 23:25:01 +01:00
parent bbb76f6f71
commit c5a855c481
1 changed files with 3 additions and 1 deletions

View File

@ -314,7 +314,9 @@
(guile-2 (guile-2
(with-fluids ((%default-port-encoding (with-fluids ((%default-port-encoding
"UTF-8")) "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))))) (else (open-output-file log-file-name)))))
(display "%%%% Starting test " log-file) (display "%%%% Starting test " log-file)
(display suite-name log-file) (display suite-name log-file)