flush log

svn: r10965
2008-07-29 16:44:01 +00:00 · 2008-07-29 16:44:01 +00:00 · 3379ec96b6
commit 3379ec96b6
parent 8c022426f4
1 changed files with 2 additions and 1 deletions
--- 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)