Catches another way images prints.

This commit is contained in:
Guillaume Marceau 2011-07-07 00:39:30 -04:00
parent 0aecbf97ff
commit ff1ab35a12

View File

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