fixed bug 10733

svn: r17973
This commit is contained in:
Matthias Felleisen 2010-02-05 01:11:05 +00:00
parent 3812f8ca72
commit dda81dc80d

View File

@ -343,7 +343,7 @@
(let ([make-bundle make-bundle])
(lambda (state mails bads)
(check-arg-list 'make-bundle mails mail? "mail" "second")
(check-arg-list 'make-bundle bads iworld? "mail" "third")
(check-arg-list 'make-bundle bads iworld? "iworld" "third")
(make-bundle state mails bads))))
;; Symbol Any (Any -> Boolean) String String -> Void