Fixes the (cons an image empty) error message
(cherry picked from commit 2ae0376476
)
This commit is contained in:
parent
18b8751ee2
commit
d1b79946f9
|
@ -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.))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user