[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ludovic Courtès |
Date: |
Sat, 24 Mar 2018 19:13:57 -0400 (EDT) |
branch: master
commit c57fe3622d44ebce49f3c0f3c24b3b9e33f0ac15
Author: Ludovic Courtès <address@hidden>
Date: Sat Mar 24 23:52:44 2018 +0100
cuirass: Line-buffer stdout and stderr.
* bin/cuirass.in (main): Add 'setvbuf' calls.
---
bin/cuirass.in | 5 +++++
1 file changed, 5 insertions(+)
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:address@hidden@} --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))