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

last world draw shouldn't restore old draw; Closes PR 11994

Browse Source
This commit is contained in:
Matthias Felleisen 2011-06-22 10:52:53 -04:00
parent 52825c68a1
commit b00b2e318a
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/2htdp/private/world.rkt
View File

@ -251,10 +251,8 @@
(begin (begin
(define/public (name arg ...) (define/public (name arg ...)
(define (last-draw) (define (last-draw)
(define draw0 draw) (set! draw last-picture)
(dynamic-wind (lambda () (set! draw last-picture)) (pdraw))
(lambda () (pdraw))
(lambda () (set! draw draw0))))
(queue-callback (queue-callback
(lambda () (lambda ()
(with-handlers ([exn? (handler #t)]) (with-handlers ([exn? (handler #t)])