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

fixed bug 10733

Browse Source 
svn: r17973
This commit is contained in:
Matthias Felleisen 2010-02-05 01:11:05 +00:00
parent 3812f8ca72
commit dda81dc80d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/2htdp/private/universe.ss
View File

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