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

fix argument-error report

Browse Source 
Merge to 5.2
This commit is contained in:
Matthew Flatt 2011-10-10 14:18:26 -06:00
parent a0e2401cbe
commit 6aaa0d44c0
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/racket/place.rkt
View File

@ -175,7 +175,7 @@
(unless (or (module-path? module-path) (path? module-path))
(raise-type-error who "module-path or path" module-path))
(unless (symbol? function)
(raise-type-error who "symbol" module-path))
(raise-type-error who "symbol" function))
(unless (or (not in) (input-port? in))
(raise-type-error who "input-port or #f" in))
(unless (or (not out) (output-port? out))