anchor.diff:  %% becoming a bottleneck.
   
   receive_message(TPid, {Pkt, NPid}, Dict0, RecvData) ->
  -    NPid ! {diameter, case incoming(TPid, Pkt, Dict0, RecvData) of
  -                          Pid when is_pid(Pid) ->
  -                              {request, Pid};
  -                          _ ->
  -                              discard
  -                      end};
  +    NPid ! {diameter, incoming(TPid, Pkt, Dict0, RecvData)};
   
   receive_message(TPid, Pkt, Dict0, RecvData) ->
       incoming(TPid, Pkt, Dict0, RecvData).
  
positive.code: %% Incoming request ...
  recv(true, false, TPid, Pkt, Dict0, T) ->
      try
          spawn_request(TPid, Pkt, Dict0, T)
      catch
          error: system_limit = E ->  %% discard
              ?LOG(error, E),
              {error, E}
      end;
  
  %% ... answer to known request ...
  recv(false, #request{ref = Ref, handler = Pid} = Req, _, Pkt, Dict0, _) ->
      Pid ! {answer, Ref, Req, Dict0, Pkt};
  
  %% Note that failover could have happened prior to this message being
  %% received and triggering failback. That is, both a failover message
  
negative.code: recv(false, false, TPid, Pkt, _, _) ->
      ?LOG(discarded, Pkt#diameter_packet.header),
      incr(TPid, {{unknown, 0}, recv, discarded}),
      discard.
  
  %% spawn_request/4
  
  