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

Take dcon-dotteds and create an appropriate i-subst/dotted entry.

Browse Source
This commit is contained in:
Stevie Strickland 2010-06-18 15:26:24 -04:00 committed by Sam Tobin-Hochstadt
parent 3f7ca52e37
commit 9c22701bd3
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/typed-scheme/infer/infer-unit.rkt
View File

@ -535,7 +535,14 @@
(i-subst/starred
(for/list ([f fixed])
(constraint->type f idx-hash #:variable k))
(constraint->type rest idx-hash)))]))
(constraint->type rest idx-hash)))]
[(dcon-dotted fixed dc dbound)
(values k
(i-subst/dotted
(for/list ([f fixed])
(constraint->type f idx-hash #:variable k))
(constraint->type dc idx-hash #:variable k)
dbound))]))
(for/hash ([(k v) (in-hash cmap)])
(values k (t-subst (constraint->type v var-hash)))))])
;; verify that we got all the important variables