Add (very simple) type for hash.

This commit is contained in:
Sam Tobin-Hochstadt 2013-10-03 13:13:46 -04:00
parent 25026a0923
commit c88e536c46

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)))]