Simplify type of hash-has-key?.

This commit is contained in:
Eric Dobson 2013-11-17 10:52:40 -08:00
parent b11c485523
commit c0230fb6f4

View File

@ -719,8 +719,7 @@
[hash-ref! (-poly (a b) [hash-ref! (-poly (a b)
(cl-> [((-HT a b) a b) b] (cl-> [((-HT a b) a b) b]
[((-HT a b) a (-> b)) b]))] [((-HT a b) a (-> b)) b]))]
[hash-has-key? (-poly (a b) (cl-> [((-HT a b) a) B] [hash-has-key? (-HashTop Univ . -> . B)]
[(-HashTop a) B]))]
[hash-update! (-poly (a b) [hash-update! (-poly (a b)
(cl-> [((-HT a b) a (-> b b)) -Void] (cl-> [((-HT a b) a (-> b b)) -Void]
[((-HT a b) a (-> b b) (-> b)) -Void]))] [((-HT a b) a (-> b b) (-> b)) -Void]))]