From f468769a75a9c8043ff4881b1b1e8e881490f0ce Mon Sep 17 00:00:00 2001 From: Guillaume Marceau Date: Thu, 7 Jul 2011 00:39:30 -0400 Subject: [PATCH] Catches another way images prints. (cherry picked from commit ff1ab35a12d9a3360cbbffd21bf62bc26aa8a59e) --- collects/lang/private/rewrite-error-message.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/lang/private/rewrite-error-message.rkt b/collects/lang/private/rewrite-error-message.rkt index 514ac3ebe5..8ac58a7340 100755 --- a/collects/lang/private/rewrite-error-message.rkt +++ b/collects/lang/private/rewrite-error-message.rkt @@ -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% ...)")