~ chicken-core (chicken-5) 4bd742b5c8d05737fa2728fd98e5eae31608ba30
commit 4bd742b5c8d05737fa2728fd98e5eae31608ba30
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 4 21:22:20 2016 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Sun Nov 13 11:41:49 2016 +0100
chicken-install: flush stdout before dbg output
diff --git a/chicken-install.scm b/chicken-install.scm
index 4bf52889..c53e7b05 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -151,6 +151,7 @@
(fstr (if (string? flag) flag (car args)))
(args (if (string? flag) args (cdr args))))
(when (or flag (not quiet))
+ (flush-output)
(let ((port (current-error-port)))
(apply fprintf port fstr args)
(flush-output port) ) )))
Trap