suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

undid last commit to remove timing printouts

Browse Source 
svn: r8197
This commit is contained in:
Robby Findler 2008-01-03 19:09:00 +00:00
parent 7fc41024c0
commit 13a92b3a3c
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mred/private/editor.ss
View File

@ -81,20 +81,6 @@
set-modified set-filename set-modified set-filename
get-file put-file get-file put-file
get-max-undo-history) 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 canvases null)
(define active-canvas #f) (define active-canvas #f)
(define auto-set-wrap? #f) (define auto-set-wrap? #f)