anchor.diff:  receive_old_answers() ->
       receive
           ?SCALARIS_RECV({tx_tm_rtm_commit_reply, _, _}, receive_old_answers());
  -        ?SCALARIS_RECV({tx_timeout, _}, receive_old_answers());
           ?SCALARIS_RECV({_Op, _RdhtId, _RdhtTlog}, receive_old_answers())
       after 0 -> ok
       end.
  
positive.code:              receive_answer(ReqId)
            );
          ?SCALARIS_RECV(
             {tx_timeout, _}, %% ->
             %% probably an outdated commit reply: drop it.
               receive_answer(ReqId)
            );
          ?SCALARIS_RECV(
             {_Op, ReqId, RdhtTlog}, %% ->
               RdhtTlog
            )
  
negative.code:                       );
                      ?SCALARIS_RECV(
                         {tx_tm_rtm_commit_reply, ClientsId, {abort, FailedKeys}}, %% ->
                           {fail, abort, FailedKeys} %% commit / abort;
                         )
                  end
      end.
  
  