anchor.diff:           start_link/1,
            record/4,
            reset/0,
  +         identify/1,
            print/0]).
   
   %% gen_server callbacks
  
positive.code:     {reply, ok, State#state{trace=Trace0++[TraceMessage]}};
  handle_call(reset, _From, State) ->
      lager:info("~p: resetting trace.", [?MODULE]),
      {reply, ok, State#state{trace=[]}};
  handle_call(print, _From, #state{trace=Trace}=State) ->
      lists:foreach(fun({SourceNode, DestinationNode, Type, Message}) ->
          case Type of
  
negative.code: print() ->
      gen_server:call(?MODULE, print, infinity).
  
  %% @doc Identify trace.
  identify(Identifier) ->
      gen_server:call(?MODULE, {identify, Identifier}, infinity).
  
  %%%===================================================================
  %%% gen_server callbacks
  %%%===================================================================
  