ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
srfi/srfi-64.upstream.scm
View file

@ -314,7 +314,9 @@ (define (test-on-group-begin-simple runner suite-name count)
(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)