From 3379ec96b6253d7503abcf47c45e16799b52859b Mon Sep 17 00:00:00 2001
From: Chongkai Zhu <chongkai@racket-lang.org>
Date: Tue, 29 Jul 2008 16:44:01 +0000
Subject: [PATCH] flush log

svn: r10965
---
 collects/srfi/64/testing.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/srfi/64/testing.ss b/collects/srfi/64/testing.ss
index 1c4cdc5968..e054da73da 100644
--- a/collects/srfi/64/testing.ss
+++ b/collects/srfi/64/testing.ss
@@ -257,7 +257,8 @@
       (when (output-port? log)
         (display "Group end: " log)
         (display (car (test-runner-group-stack runner)) log)
-        (newline log)))
+        (newline log)
+        (flush-output log)))
     #f)
   
   (define (%test-on-bad-count-write runner count expected-count port)