stupid typo
svn: r12204
This commit is contained in:
parent
e69f6e126a
commit
c1cf821bd9
|
@ -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...")
|
||||||
|
|
Loading…
Reference in New Issue
Block a user