aboutsummaryrefslogtreecommitdiff
path: root/srfi/srfi-64.upstream.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-02-03 23:25:01 +0100
committerLudovic Courtès <ludo@gnu.org>2013-02-04 08:58:48 +0100
commitc5a855c481fd9d9c9f712a38610fcdbee1ed25d4 (patch)
tree20c94004ae6341d5414a0950dcaa1799afd3500b /srfi/srfi-64.upstream.scm
parentbbb76f6f71ccb9c32be36e50b7051a813d76f930 (diff)
downloadguix-c5a855c481fd9d9c9f712a38610fcdbee1ed25d4.tar
guix-c5a855c481fd9d9c9f712a38610fcdbee1ed25d4.tar.gz
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.
Diffstat (limited to 'srfi/srfi-64.upstream.scm')
-rw-r--r--srfi/srfi-64.upstream.scm4
1 files changed, 3 insertions, 1 deletions
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 @@
(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)