add 'eprintf' and 'displayln'
original commit: 50e923b199eba2efa1afcd16fb2363d1fec82454
This commit is contained in:
commit
f02c0bc879
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user