module Hash: Generic_util_hashval safe_find : ('a, 'b) Hashtbl.t -> 'a -> ('b -> 'c) -> 'c -> 'csafe_find, catches the Not_found exception with a
default value:
safe_find table key some none =
try some (Hashtbl.find table key)
with Not_found -> none
val update : ('a, 'b) Hashtbl.t -> 'a -> ('b -> 'b) -> 'b -> unitupdate table key f x0 will either initialise table[key] with f x0
or update it with f (table[key]).