Commits

camlspotter committed e1f8ef9

fix

  • Participants
  • Parent commits d1eb542

Comments (0)

Files changed (1)

File lib/xhashtbl.ml

 
 let find_opt tbl k = try Some (Hashtbl.find tbl k) with Not_found -> None
 
-let find_default def tbl k = try find tbl k with Not_found -> def
+let find_default def tbl k = try Hashtbl.find tbl k with Not_found -> def
 
 let alter tbl k f =
   match f (find_opt tbl k) with