let fold_e_one_dir ?(rev=false) f g v = let to_ = Node.Hashtbl.find g v in To.fold (fun v' lbl acc -> f (if rev then (v', lbl, v) else (v, lbl, v' : E.t)) acc) to_