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

performance improvement

Browse Source 
svn: r11916
This commit is contained in:
Robby Findler 2008-09-30 20:18:55 +00:00
parent cab3740acf
commit 33d52cb379
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/htdp/world.ss
View File

@ -918,9 +918,11 @@ Matthew
(define m (mouse-event->symbol e)) (define m (mouse-event->symbol e))
(when (and (<= 0 x WIDTH) (<= 0 y HEIGHT)) (when (and (<= 0 x WIDTH) (<= 0 y HEIGHT))
(with-handlers ([exn:break? break-handler][exn? exn-handler]) (with-handlers ([exn:break? break-handler][exn? exn-handler])
(set! the-world (f the-world x y m)) (let ([new-world (f the-world x y m)])
(add-event MOUSE x y m) (unless (eq? new-world the-world)
(redraw-callback))))))) (set! the-world new-world)
(add-event MOUSE x y m)
(redraw-callback)))))))))
;; MouseEvent -> MouseEventType ;; MouseEvent -> MouseEventType
(define (mouse-event->symbol e) (define (mouse-event->symbol e)