Commits

Anonymous committed cc82e6a

Submit of cf-0.3 release.

Comments (0)

Files changed (1)

cf/t/t_setbench.ml

 
 (* James Woodyatt's red-black trees *)
 module S2 = struct
-    module S = Cf_rbt.Set(Cf_ordered.Int_order)
+    module S = Cf_rbtree.Set(Cf_ordered.Int_order)
 
     type t = S.t
     let empty = S.nil
     let union s1 s2 = S.union s1 s2
     let fold f s a = S.fold (fun x y -> f y x) a s
 end
-module B2 = struct let name = "Cf_rbt.Set" include BenchSet(S2) end
+module B2 = struct let name = "Cf_rbtree.Set" include BenchSet(S2) end
 
 module S3 = Dummy_set
 module B3 = Dummy_bench