add 'eprintf' and 'displayln'
original commit: 50e923b199eba2efa1afcd16fb2363d1fec82454
This commit is contained in:
commit
f02c0bc879
|
@ -19,12 +19,6 @@
|
||||||
(current-inexact-milliseconds)
|
(current-inexact-milliseconds)
|
||||||
0))
|
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
|
;; FIXME: assumes text never moves
|
||||||
|
|
||||||
;; print-syntax-to-editor : syntax text controller<%> config number number
|
;; print-syntax-to-editor : syntax text controller<%> config number number
|
||||||
|
|
Loading…
Reference in New Issue
Block a user