let
fold_one_dir f g v =
let
to_ =
Node
.
Hashtbl
.find g v
in
To
.fold (
fun
v' _ acc
->
f v' acc) to_