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

Fix bad hashtable type inference.

Browse Source 
svn: r18284
This commit is contained in:
Sam Tobin-Hochstadt 2010-02-23 02:05:40 +00:00
parent 2e791579ad
commit f2ee3aa7b6
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/infer/infer-unit.ss
View File

@ -388,7 +388,7 @@
(cset-meet (cg e e*) (cg e* e))] (cset-meet (cg e e*) (cg e* e))]
[((Hashtable: s1 s2) (Hashtable: t1 t2)) [((Hashtable: s1 s2) (Hashtable: t1 t2))
;; the key is contravariant, the value is invariant ;; the key is contravariant, the value is invariant
(cset-meet* (list (cg t1 s1) (cg t2 s2) (cg s2 t2)))] (cset-meet* (list (cg t1 s1) (cg s1 t1) (cg t2 s2) (cg s2 t2)))]
[((Syntax: s1) (Syntax: s2)) [((Syntax: s1) (Syntax: s2))
(cg s1 s2)] (cg s1 s2)]
;; parameters are just like one-arg functions ;; parameters are just like one-arg functions