simplify hash-count's type

This commit is contained in:
Phil Nguyen 2016-10-28 17:15:00 -04:00
parent c85515e258
commit a8b20d87aa

View File

@ -963,8 +963,7 @@
[(-HashTop (Univ Univ . -> . c)) (-lst c)]))]
[hash-for-each (-poly (a b c) (cl-> [((-HT a b) (-> a b c)) -Void]
[(-HashTop (-> Univ Univ c)) -Void]))]
[hash-count (-poly (a b) (cl-> [((-HT a b)) -Index]
[(-HashTop) -Index]))]
[hash-count (-> -HashTop -Index)]
[hash-empty? (-> -HashTop -Boolean)]
[hash-keys (-poly (a b) (cl-> [((-HT a b)) (-lst a)]
[(-HashTop) (-lst Univ)]))]