···5353 let put (bs : t) h data = bs#put h data
5454 let mem (bs : t) h = bs#has h
5555 let batch bs l = List.iter (fun (h, d) -> bs#put h d) l
5656- let find_ref _ _ = None
5656+ let ref _ _ = None
5757 let set_ref _ _ _ = ()
5858 let del_ref _ _ = ()
5959 let list_refs _ = []