anchor.diff:  ref_edge(RefA, RefB) ->
     io_lib:format("    \"~p\" -> \"~p\"",[RefA,RefB]).
   
  +dref_edge(RefA, RefB) ->
  +  io_lib:format("    \"~p\":e -> \"~p\":e",[RefA,RefB]).
  +
   graph_close(#logger_state{graph_data = undefined}) -> ok;
   graph_close(#logger_state{graph_data = {GraphFile, _, _}}) ->
     io:format(
  
positive.code:       {race, EarlyRef, Ref} ->
          io:format(
            GraphFile,
            "~s[constraint=false, color=red, penwidth=3, style=dashed];~n",
            [ref_edge(Ref, EarlyRef)]),
          Graph;
        {set_node, NewParent, NewSibling} ->
          io:format(
  
negative.code:   orddict:fold(Fold, ok, Streams).
  
  print_stream(Tag, Buffer, Output) ->
    io:format(Output, tag_to_filename(Tag) ++ ":~n", []),
    io:format(Output, "~s~n", [Buffer]),
    case Tag =/= race of
      true ->
  