From 27f14894030163424f6ab1cb181076cb7c7d8b31 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 30 Oct 2009 07:50:49 +0000
Subject: [PATCH] extra flushing

svn: r16468
---
 collects/tests/mzscheme/testing.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/tests/mzscheme/testing.ss b/collects/tests/mzscheme/testing.ss
index 2d1ca6c278..6445d2ee51 100644
--- a/collects/tests/mzscheme/testing.ss
+++ b/collects/tests/mzscheme/testing.ss
@@ -323,6 +323,7 @@ transcript.
                (for-each (lambda (l) (printf "~a~s\n" Section-prefix l))
                          (reverse errs))
                (when final? (exit 1))))
+      (flush-output)
       (when final? (exit (if ok? 0 1)))
       (printf "(Other messages report successful tests of~a.)\n"
               " error-handling behavior")