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

fix in Graph.pp

Browse source
This commit is contained in:
Simon Cruanes 2013-03-05 12:06:43 +01:00
parent 9ce511156e
commit 8da095f76b
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
graph.ml
View file

@ -318,14 +318,13 @@ let pp ~name ?vertices
| None -> mk_v_table graph in | None -> mk_v_table graph in
(* map from vertices to integers *) (* map from vertices to integers *)
let get_id = let get_id =
let count_map = mk_v_table graph let count = ref 0 in
and count = ref 0 in
fun vertex -> fun vertex ->
try PHashtbl.find count_map vertex try PHashtbl.find vertices vertex
with Not_found -> with Not_found ->
let n = !count in let n = !count in
incr count; incr count;
PHashtbl.replace count_map vertex n; PHashtbl.replace vertices vertex n;
n n
(* print an attribute *) (* print an attribute *)
and print_attribute formatter attr = and print_attribute formatter attr =