Bug in the function "mem" of the functorial interface

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2601 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1999-11-25 22:39:23 +00:00 · 1999-11-25 22:39:23 +00:00 · 764f2c83c3
parent 66a68e3e24
commit 764f2c83c3
1 changed files with 1 additions and 1 deletions
--- a/stdlib/hashtbl.ml
+++ b/stdlib/hashtbl.ml
@ -210,7 +210,7 @@ module Make(H: HashedType): (S with type key = H.t) =
          false
      | Cons(k, d, rest) ->
          H.equal k key || mem_in_bucket rest in
-      mem_in_bucket h.data.((hash_param 10 100 key) mod (Array.length h.data))
+      mem_in_bucket h.data.((H.hash key) mod (Array.length h.data))


    let iter = iter