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))
(when (and (<= 0 x WIDTH) (<= 0 y HEIGHT))
(with-handlers ([exn:break? break-handler][exn? exn-handler])
(set! the-world (f the-world x y m))
(add-event MOUSE x y m)
(redraw-callback)))))))
(let ([new-world (f the-world x y m)])
(unless (eq? new-world the-world)
(set! the-world new-world)
(add-event MOUSE x y m)
(redraw-callback)))))))))
;; MouseEvent -> MouseEventType
(define (mouse-event->symbol e)