Browse Source

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.
wip-grafts
Ludovic Courtès 9 years ago
parent
commit
c5a855c481
  1. 4
      srfi/srfi-64.upstream.scm

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

Loading…
Cancel
Save