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

Fix call with correct # of args.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2008-07-07 15:24:09 -04:00
parent 17dec0046f
commit acd6664c52
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/typed-scheme/private/tc-app-unit.ss
View File

@ -570,7 +570,7 @@
;; even more special case for match
[(#%plain-app (letrec-values ([(lp) (#%plain-lambda args . body)]) lp*) . actuals)
(and expected (not (andmap type-annotation (syntax->list #'args))) (free-identifier=? #'lp #'lp*))
(let-loop-check #'lp #'actuals #'args #'body expected)]
(let-loop-check #'form #'lp #'actuals #'args #'body expected)]
;; or/andmap of ... argument
[(#%plain-app or/andmap f arg)
(and