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

fixed parameter contracts

Browse Source 
svn: r6833
This commit is contained in:
Robby Findler 2007-07-07 15:19:46 +00:00
parent 9764065c6a
commit cb47325215
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/mzlib/private/contract.ss
View File

@ -1988,7 +1988,7 @@ improve method arity mismatch contract violation error messages?
(let ([c-proc ((proj-get (parameter/c-ctc ctc)) (parameter/c-ctc ctc))])
(λ (pos-blame neg-blame src-info orig-str)
(let ([partial-neg-contract (c-proc neg-blame pos-blame src-info orig-str)]
[partial-pos-contract (c-proc neg-blame pos-blame src-info orig-str)])
[partial-pos-contract (c-proc pos-blame neg-blame src-info orig-str)])
(λ (val)
(cond
[(parameter? val)