From 27f14894030163424f6ab1cb181076cb7c7d8b31 Mon Sep 17 00:00:00 2001 From: Eli Barzilay 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")