extra flushing
svn: r16468
This commit is contained in:
parent
ec99d25607
commit
27f1489403
|
@ -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")
|
||||||
|
|
Loading…
Reference in New Issue
Block a user