do not assume too much on initial size

This commit is contained in:
Simon Cruanes 2013-03-07 19:10:57 +01:00
parent 7d96c9092a
commit d00144375b

View file

@ -156,7 +156,7 @@ module Tree(X : HASH) = struct
(** Empty hashtable *)
let empty size =
let size = max size 16 in (* size >= 16 *)
let size = max size 4 in (* size >= 4 *)
Table (empty_buckets size)
(** The address in a bucket array, after probing [i] times *)