~ruther/guix-local: SRFI-64: Make the log file's port line-buffered.

c5a855c481fd9d9c9f712a38610fcdbee1ed25d4 — Ludovic Courtès 13 years ago bbb76f6

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.

patch browse .tar.gz

1 files changed, 3 insertions(+), 1 deletions(-)

M srfi/srfi-64.upstream.scm

M srfi/srfi-64.upstream.scm => srfi/srfi-64.upstream.scm +3 -1

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