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

Make polydotted * case in apply similar to other cases.

Browse Source
This commit is contained in:
Eric Dobson 2014-04-27 18:48:23 -07:00
parent 362747bfcd
commit 8ab29675d6
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-apply.rkt
View File

@ -140,12 +140,10 @@
(cond (cond
;; the actual work, when we have a * function ;; the actual work, when we have a * function
[(and rest [(and rest
(<= (length domain) (length arg-tys)) (infer fixed-vars (list dotted-var)
(infer/vararg fixed-vars (list dotted-var) (list (-Tuple* arg-tys full-tail-ty))
(cons full-tail-ty arg-tys) (list (-Tuple* domain (make-Listof rest)))
(cons (make-Listof rest) domain) range))
rest
range))
=> finish] => finish]
;; ... function, ... arg ;; ... function, ... arg
[(and drest tail-bound [(and drest tail-bound