Fixes the (cons an image empty) error message

(cherry picked from commit 2ae0376476)
This commit is contained in:
Guillaume Marceau 2011-07-19 12:59:46 -04:00 committed by Eli Barzilay
parent 18b8751ee2
commit d1b79946f9

View File

@ -78,12 +78,18 @@
(lambda (all one) "expects a "))
(list #rx"list or cyclic list"
(lambda (all) "list"))
(list (regexp-quote "given #(struct:object:image% ...)")
(lambda (all) "given an image"))
(list (regexp-quote "given #(struct:object:image-snip% ...)")
(lambda (all) "given an image"))
(list (regexp-quote "given #(struct:object:cache-image-snip% ...)")
(lambda (all) "given an image"))
(list (regexp-quote "#(struct:object:image% ...)")
(lambda (all) "an image"))
(lambda (all) "(image)"))
(list (regexp-quote "#(struct:object:image-snip% ...)")
(lambda (all) "an image"))
(lambda (all) "(image)"))
(list (regexp-quote "#(struct:object:cache-image-snip% ...)")
(lambda (all) "an image"))))
(lambda (all) "(image)"))))
(for/fold ([msg msg]) ([repl. replacements])
(regexp-replace* (first repl.) msg (second repl.))))