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

2011-06-22 10:52:53 -04:00 · 2011-06-22 10:52:53 -04:00 · b00b2e318a
commit b00b2e318a
parent 52825c68a1
1 changed files with 2 additions and 4 deletions
--- a/collects/2htdp/private/world.rkt
+++ b/collects/2htdp/private/world.rkt
@ -251,10 +251,8 @@
        (begin
          (define/public (name arg ...) 
            (define (last-draw)
-              (define draw0 draw)
-              (dynamic-wind (lambda () (set! draw last-picture))
-                            (lambda () (pdraw))
-                            (lambda () (set! draw draw0))))
+              (set! draw last-picture)
+              (pdraw))
            (queue-callback 
             (lambda ()
               (with-handlers ([exn? (handler #t)])