aboutsummaryrefslogtreecommitdiff
path: root/bin/cuirass.in
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-03-24 23:52:44 +0100
committerLudovic Courtès <ludo@gnu.org>2018-03-25 00:09:29 +0100
commitc57fe3622d44ebce49f3c0f3c24b3b9e33f0ac15 (patch)
tree402ca26285eea0ba9023615798ced11386b927a4 /bin/cuirass.in
parent99d88929a62207843aa66cbfb7093391e54ea199 (diff)
downloadcuirass-c57fe3622d44ebce49f3c0f3c24b3b9e33f0ac15.tar
cuirass-c57fe3622d44ebce49f3c0f3c24b3b9e33f0ac15.tar.gz
cuirass: Line-buffer stdout and stderr.
* bin/cuirass.in (main): Add 'setvbuf' calls.
Diffstat (limited to 'bin/cuirass.in')
-rw-r--r--bin/cuirass.in5
1 files changed, 5 insertions, 0 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in
index 7e3c5cf..fa0d6af 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -77,6 +77,11 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
;;;
(define* (main #:optional (args (command-line)))
+
+ ;; Always have stdout/stderr line-buffered.
+ (setvbuf (current-output-port) _IOLBF)
+ (setvbuf (current-error-port) _IOLBF)
+
(let ((opts (getopt-long args %options)))
(parameterize
((%program-name (car args))