simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

small change

Browse source
This commit is contained in:
Simon Cruanes 2015-06-10 16:31:04 +02:00
parent 572f45560b
commit 4af6cf1985
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/data/CCGraph.ml
View file

@ -67,7 +67,6 @@ type ('k, 'a) table = {
mem: 'k -> bool; mem: 'k -> bool;
find: 'k -> 'a; (** @raise Not_found *) find: 'k -> 'a; (** @raise Not_found *)
add: 'k -> 'a -> unit; (** Erases previous binding *) add: 'k -> 'a -> unit; (** Erases previous binding *)
size: unit -> int;
} }
(** Mutable set *) (** Mutable set *)
@ -83,7 +82,6 @@ let mk_table (type k) ?(eq=(=)) ?(hash=Hashtbl.hash) size =
{ mem=(fun k -> H.mem tbl k) { mem=(fun k -> H.mem tbl k)
; find=(fun k -> H.find tbl k) ; find=(fun k -> H.find tbl k)
; add=(fun k v -> H.replace tbl k v) ; add=(fun k v -> H.replace tbl k v)
; size=(fun () -> H.length tbl)
} }
let mk_map (type k) ?(cmp=Pervasives.compare) () = let mk_map (type k) ?(cmp=Pervasives.compare) () =
@ -95,7 +93,6 @@ let mk_map (type k) ?(cmp=Pervasives.compare) () =
{ mem=(fun k -> M.mem k !tbl) { mem=(fun k -> M.mem k !tbl)
; find=(fun k -> M.find k !tbl) ; find=(fun k -> M.find k !tbl)
; add=(fun k v -> tbl := M.add k v !tbl) ; add=(fun k v -> tbl := M.add k v !tbl)
; size=(fun () -> M.cardinal !tbl)
} }
(** {2 Bags} *) (** {2 Bags} *)