[Stdlib] Hashtbl: add a getter for randomize

bobot · bobot · commit 99db66f3e86b · 2014-03-11T15:50:12.000+01:00
diff --git a/stdlib/hashtbl.ml b/stdlib/hashtbl.ml
@@ -47,6 +47,7 @@ let randomized_default =
 let randomized = ref randomized_default
 
 let randomize () = randomized := true
+let is_randomize () = !randomized
 
 let prng = lazy (Random.State.make_self_init())
 
diff --git a/stdlib/hashtbl.mli b/stdlib/hashtbl.mli
@@ -165,6 +165,11 @@ val randomize : unit -> unit
 
     @since 4.00.0 *)
 
+val is_randomize : unit -> bool
+(** return if the tables are currently created in randomized mode by default
+
+    @since 4.02.0 *)
+
 type statistics = {
   num_bindings: int;
     (** Number of bindings present in the table.
