allow empty as a door image

svn: r4821
2006-11-10 20:51:54 +00:00 · 2006-11-10 20:51:54 +00:00 · 3f8d7fe93e
commit 3f8d7fe93e
parent 345fa2e796
1 changed files with 4 additions and 1 deletions
--- a/collects/games/doors/doors.ss
+++ b/collects/games/doors/doors.ss
@ -216,7 +216,10 @@
                                 (bitmap->drawer door-image this)
                                 door-image)]
                 [drawer (if wall?
-                             (make-wall-draw ri rj dir door-image)
+                             (make-wall-draw ri rj dir 
+                                             (if (null? door-image)
+                                                 void
+                                                 door-image))
                             void)])
            (if (wall-drawer wall)
                (send board set-space-draw wall drawer)