suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixes the (cons an image empty) error message

Browse Source
This commit is contained in:
Guillaume Marceau 2011-07-19 12:59:46 -04:00
parent a7768a13a3
commit 2ae0376476
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/lang/private/rewrite-error-message.rkt
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.))))