undid last commit to remove timing printouts

svn: r8425

original commit: 12be0ae53b458197ad02597d8c838b2bfcd1bf08
This commit is contained in:
Robby Findler 2008-01-26 14:39:49 +00:00
parent 920169a63a
commit ee0d907c6b

View File

@ -81,20 +81,6 @@
set-modified set-filename
get-file put-file
get-max-undo-history)
(rename-super [super-on-char on-char])
(define time 0)
(define count 0)
(override* [on-char
(λ (evt)
(let-values ([(results cpu real gc)
(time-apply (λ () (super-on-char evt)) '())])
(set! time (+ real time))
(set! count (+ count 1))
(when (= count 20)
(printf "time ~s\n" time)
(set! count 0)
(set! time 0))
(apply values results)))])
(define canvases null)
(define active-canvas #f)
(define auto-set-wrap? #f)