improved contract

This commit is contained in:
Robby Findler 2010-07-31 09:40:04 -05:00
parent d2802a0ed7
commit f96ed0632a

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?)])