From abca2c91b8569f0a516c6ed9e4d4f325361f5f03 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 28 Oct 2010 13:50:16 -0500
Subject: [PATCH] added default case to avoid runtime errors when parsing bogus
 images

---
 collects/mrlib/private/regmk.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mrlib/private/regmk.rkt b/collects/mrlib/private/regmk.rkt
index 59510a4365..87a68f3b55 100644
--- a/collects/mrlib/private/regmk.rkt
+++ b/collects/mrlib/private/regmk.rkt
@@ -26,7 +26,8 @@
            #,@(map (λ (x) 
                      (with-syntax ([(struct: maker) x])
                        #`[(struct:) maker]))
-                   id-constructor-pairs)))]))
+                   id-constructor-pairs)
+           [else #f]))]))
 
 (define-id->constructor id->constructor)