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.
gn-latest-20200428
Ludovic Courtès 8 years ago
parent
commit
c5a855c481
1 changed files with 3 additions and 1 deletions
  1. +3
    -1
      srfi/srfi-64.upstream.scm

+ 3
- 1
srfi/srfi-64.upstream.scm View File

@ -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