From c5a855c481fd9d9c9f712a38610fcdbee1ed25d4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 3 Feb 2013 23:25:01 +0100 Subject: [PATCH] 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. --- srfi/srfi-64.upstream.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 @@ (define (test-on-group-begin-simple runner suite-name count) (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)