stupid typo

svn: r12204
This commit is contained in:
Eli Barzilay 2008-10-31 19:50:22 +00:00
parent e69f6e126a
commit c1cf821bd9

View File

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