From c5a855c481fd9d9c9f712a38610fcdbee1ed25d4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
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 1ea3bd9a9e1..45a7af37852 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)
--
GitLab