anchor.diff:  %% --------------------------------------------------------------------
   %%% Internal functions
   %% --------------------------------------------------------------------
  +%%keyreplace(Key, N, TupleList1, NewTuple) -> TupleList2
  +add([{node, Node}, {state, State1}, {time, Time}, {ip, Ip}], Store) ->
  +	lists:keystore(Node, 1, Store, {Node, [{state, State1}, {time, Time}, {ip, Ip}]}).
   %% --------------------------------------------------------------------
   %%% Test functions
   %% --------------------------------------------------------------------
  
positive.code: %%          {noreply, State, Timeout} |
  %%          {stop, Reason, State}            (terminate/2 is called)
  %% --------------------------------------------------------------------
  handle_cast(Msg, State) ->
      {noreply, State}.
  
  %% --------------------------------------------------------------------
  
negative.code: %%          {stop, Reason, Reply, State}   | (terminate/2 is called)
  %%          {stop, Reason, State}            (terminate/2 is called)
  %% --------------------------------------------------------------------
  handle_call(get_store, From, #state{store = Store} = State) ->
      {reply, Store, State};
  	
  handle_call(Request, From, State) ->
      Reply = ok,
      {reply, Reply, State}.
  