Add (very simple) type for hash.

original commit: c88e536c460ff05fc1e8b4c134a5361a14a3f32f
This commit is contained in:
Sam Tobin-Hochstadt 2013-10-03 13:13:46 -04:00
parent d49488ebaf
commit 3405bbdfac

View File

@ -923,6 +923,8 @@
[hash-eqv? (-> -HashTop B)]
[hash-equal? (-> -HashTop B)]
[hash-weak? (-> -HashTop B)]
;; not a very useful type, but better than nothing
[hash (-poly (a b) (-> (-HT a b)))]
[make-hash (-poly (a b) (->opt [(-lst (-pair a b))] (-HT a b)))]
[make-hasheq (-poly (a b) (->opt [(-lst (-pair a b))] (-HT a b)))]
[make-hasheqv (-poly (a b) (->opt [(-lst (-pair a b))] (-HT a b)))]