diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-02-03 23:25:01 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-02-04 08:58:48 +0100 |
| commit | c5a855c481fd9d9c9f712a38610fcdbee1ed25d4 (patch) | |
| tree | 20c94004ae6341d5414a0950dcaa1799afd3500b /srfi/srfi-64.upstream.scm | |
| parent | bbb76f6f71ccb9c32be36e50b7051a813d76f930 (diff) | |
| download | patches-c5a855c481fd9d9c9f712a38610fcdbee1ed25d4.tar patches-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.scm | 4 |
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) |