fix literal hashtables and pairs

2010-05-03 11:31:27 -04:00 · 2010-05-03 11:31:27 -04:00 · abc83496b3
commit abc83496b3
parent 6a7aaf48cc
1 changed files with 6 additions and 0 deletions
--- a/collects/typed-scheme/typecheck/tc-expr-unit.rkt
+++ b/collects/typed-scheme/typecheck/tc-expr-unit.rkt
@ -68,6 +68,12 @@
       [_ (make-Vector (apply Un 
                              (for/list ([l (syntax-e #'i)])
                                (tc-literal l #f))))])]
+    [(~var i (3d hash?))
+     (let* ([h (syntax-e #'i)]
+            [ks (hash-map h (lambda (x y) (tc-literal x)))]
+            [vs (hash-map h (lambda (x y) (tc-literal y)))])
+       (make-Hashtable (apply Un ks) (apply Un vs)))]
+    [(a . b) (-pair (tc-literal #'a) (tc-literal #'b))]
    [_ Univ]))