Refine hash table's type.

racket · May 4, 2021 · f0b2e7c · f0b2e7c · jbclements · May 5, 2021
1 parent f3a105f
commit f0b2e7c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/math-lib/math/private/statistics/counting.rkt b/math-lib/math/private/statistics/counting.rkt
@@ -19,7 +19,7 @@
 
 (: unweighted-samples->hash (All (A) ((Sequenceof A) -> (HashTable A Positive-Integer))))
 (define (unweighted-samples->hash xs)
-  (define: h : (HashTable A Positive-Integer)  (make-hash))
+  (define: h : (Mutable-HashTable A Positive-Integer)  (make-hash))
   (for: ([x : A  xs])
     (hash-set! h x (unsafe-fx+ 1 (hash-ref h x (λ () 0)))))
   h)
@@ -28,7 +28,7 @@
                                                    -> (HashTable A Nonnegative-Real))))
 (define (weighted-samples->hash xs ws)
   (let-values ([(xs ws)  (sequences->weighted-samples 'samples->hash xs ws)])
-    (define: h : (HashTable A Nonnegative-Real)  (make-hash))
+    (define: h : (Mutable-HashTable A Nonnegative-Real)  (make-hash))
     (for: ([x : A  xs] [w : Nonnegative-Real  ws])
       (hash-set! h x (+ w (hash-ref h x (λ () 0)))))
     h))