suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

extra flushing

Browse Source 
svn: r16468
This commit is contained in:
Eli Barzilay 2009-10-30 07:50:49 +00:00
parent ec99d25607
commit 27f1489403
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/tests/mzscheme/testing.ss
View File

@ -323,6 +323,7 @@ transcript.
(for-each (lambda (l) (printf "~a~s\n" Section-prefix l)) (for-each (lambda (l) (printf "~a~s\n" Section-prefix l))
(reverse errs)) (reverse errs))
(when final? (exit 1)))) (when final? (exit 1))))
(flush-output)
(when final? (exit (if ok? 0 1))) (when final? (exit (if ok? 0 1)))
(printf "(Other messages report successful tests of~a.)\n" (printf "(Other messages report successful tests of~a.)\n"
" error-handling behavior") " error-handling behavior")