add 'eprintf' and 'displayln'

original commit: 50e923b199eba2efa1afcd16fb2363d1fec82454
This commit is contained in:
Matthew Flatt 2010-05-11 06:03:57 -06:00

View File

@ -19,12 +19,6 @@
(current-inexact-milliseconds)
0))
(define eprintf
(if TIME-PRINTING?
(let ([eport (current-error-port)])
(lambda (fmt . args) (apply fprintf eport fmt args)))
void))
;; FIXME: assumes text never moves
;; print-syntax-to-editor : syntax text controller<%> config number number