added default case to avoid runtime errors when parsing bogus images

2010-10-28 13:50:16 -05:00 · 2010-10-28 13:50:16 -05:00 · abca2c91b8
commit abca2c91b8
parent 02d8b5cebf
1 changed files with 2 additions and 1 deletions
--- 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)