2htdp/image: adjusted the image you get when parsing fails so that it draws inside its bounding box

original commit: 02d8b5cebf9341c1d07823e9c048e751e576a50f
This commit is contained in:
Robby Findler 2010-10-28 11:22:44 -05:00
parent 0b029011dd
commit d75777d57d

View File

@ -320,7 +320,7 @@ has been moved out).
(let ([lst (parse (fetch (send f get-unterminated-bytes)))])
(cond
[(not lst)
(make-image (make-ellipse 100 100 0 'solid "black")
(make-image (make-translate 50 50 (make-ellipse 100 100 0 'solid "black"))
(make-bb 100 100 100)
#f
#f)]