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

fix PR 10735

Browse Source 
svn: r18419
This commit is contained in:
Sam Tobin-Hochstadt 2010-03-01 22:51:42 +00:00
parent 12257912e3
commit 33db456f9e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/private/parse-type.ss
View File

@ -291,8 +291,10 @@
(tc-error "Union: bad syntax")] (tc-error "Union: bad syntax")]
[(t:Vectorof . rest) [(t:Vectorof . rest)
(tc-error "Vectorof: bad syntax")] (tc-error "Vectorof: bad syntax")]
[(t:mu . rest) [((~and (~datum mu) t:mu) . rest)
(tc-error "mu: bad syntax")] (tc-error "mu: bad syntax")]
[(t:mu . rest)
(tc-error "Rec: bad syntax")]
[(t ... t:-> . rest) [(t ... t:-> . rest)
(tc-error "->: bad syntax")] (tc-error "->: bad syntax")]
[(id arg args ...) [(id arg args ...)