flush output ports to avoid confusing tests output

svn: r12201
This commit is contained in:
Eli Barzilay 2008-10-31 15:30:28 +00:00
parent cc02b65628
commit e2ac0f673b

View File

@ -50,6 +50,8 @@
(define name (cadr t))
(define stderr (current-error-port))
(define (echo fmt . args)
(flush (current-output-port))
(flush (current-error-port))
(fprintf stderr ">>> ~a: ~a\n" name (apply format fmt args)))
(newline stderr)
(echo "running...")