Catches another way images prints.

(cherry picked from commit ff1ab35a12)
This commit is contained in:
Guillaume Marceau 2011-07-07 00:39:30 -04:00 committed by Eli Barzilay
parent 4fbf087e17
commit f468769a75

View File

@ -78,6 +78,8 @@
(lambda (all one) "expects a "))
(list #rx"list or cyclic list"
(lambda (all) "list"))
(list (regexp-quote "#(struct:object:image% ...)")
(lambda (all) "an image"))
(list (regexp-quote "#(struct:object:image-snip% ...)")
(lambda (all) "an image"))
(list (regexp-quote "#(struct:object:cache-image-snip% ...)")