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

svn: r15364

Browse Source
This commit is contained in:
Robby Findler 2009-07-02 16:21:40 +00:00
parent 482816bf34
commit 8fbc4f86aa
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/scheme/private/contract.ss
View File

@ -2064,7 +2064,7 @@ improve method arity mismatch contract violation error messages?
(if (flat-contract? ctc) (if (flat-contract? ctc)
(let ([content-pred? (flat-contract-predicate ctc)]) (let ([content-pred? (flat-contract-predicate ctc)])
(build-flat-contract (build-flat-contract
`(type-name ,(contract-name ctc)) `(name ,(contract-name ctc))
(lambda (x) (and (predicate? x) (testmap content-pred? x))))) (lambda (x) (and (predicate? x) (testmap content-pred? x)))))
(let ([proj (contract-proc ctc)]) (let ([proj (contract-proc ctc)])
(make-proj-contract (make-proj-contract