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:
parent
0b029011dd
commit
d75777d57d
|
@ -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)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user