532
532
[[{Caller, Callee} || Callee <- Set]|Acc]
534
534
Edges1 = lists:flatten(Edges0),
535
Edges = [{X,Y} || {X,Y} <- Edges1, X =/= top],
535
Edges = [Edge || {X,_Y} = Edge <- Edges1, X =/= top],
536
536
Fun = fun(SubTree, Acc) ->
537
537
case cerl:type(SubTree) of
542
542
dict:store(cerl_trees:get_label(SubTree), ID, Acc)