From 3f8d7fe93edbf8d574aeb056eb8ccf433ff99375 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 10 Nov 2006 20:51:54 +0000
Subject: [PATCH] allow empty as a door image

svn: r4821
---
 collects/games/doors/doors.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/games/doors/doors.ss b/collects/games/doors/doors.ss
index aaf8c9e5df..8bae7e61bc 100644
--- 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)