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 the bug in CCGraph

Browse source
This commit is contained in:
Simon Cruanes 2017-02-13 15:26:52 +01:00
parent 38f5692e21
commit 207a5725de
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/data/CCGraph.ml
View file

@ -252,16 +252,16 @@ module Traverse = struct
bag.push (`Enter (v, []));
while not (bag.is_empty ()) do
match bag.pop () with
| `Enter (x, path) ->
if not (tags.get_tag x) then (
| `Enter (v, path) ->
if not (tags.get_tag v) then (
let num = !n in
incr n;
tags.set_tag x;
k (`Enter (x, num, path));
bag.push (`Exit x);
tags.set_tag v;
k (`Enter (v, num, path));
bag.push (`Exit v);
Seq.iter
(fun (e,v') -> bag.push (`Edge (v,e,v',(v,e,v') :: path)))
(graph x);
(graph v);
)
| `Exit x -> k (`Exit x)
| `Edge (v,e,v', path) ->