improved contract

original commit: f96ed0632a1b4536ce6bf16df42ae1251cd9e50c
This commit is contained in:
Robby Findler 2010-07-31 09:40:04 -05:00
parent 9cee9100aa
commit 8bfe8dddfa

View File

@ -285,7 +285,7 @@
[image (->* ((or/c path-string? (cons/c 'collects (listof bytes?)))) [image (->* ((or/c path-string? (cons/c 'collects (listof bytes?))))
(#:scale real? (#:scale real?
#:suffixes (listof #rx"^[.]")) #:suffixes (listof (and/c string? #rx"^[.]")))
#:rest (listof content?) #:rest (listof content?)
image-element?)]) image-element?)])