anchor.diff:  
   		    ip = none,
   		    port = 0,
  -		    peer_id}).
  +		    peer_id = none}).
   
   -define(MAX_PEER_PROCESSES, 40).
   
  
positive.code: %%--------------------------------------------------------------------
  %%% Internal functions
  %%--------------------------------------------------------------------
  usort_peers(IPList, S) ->
      NewList = lists:usort(IPList ++ S#state.available_peers),
      {ok, S#state{ available_peers = NewList}}.
  
negative.code: 		 file_system_pid = FileSystemPid,
  		 peer_process_dict = dict:new() }}.
  
  
  handle_call({uploaded_data, Amount}, {Pid, _Tag}, S) ->
      {reply, ok, peer_dict_update(
  		  Pid,
  		  fun(PI) ->
  			  PI#peer_info{
  			    uploaded = PI#peer_info.uploaded + Amount}
  		  end,
  		  S)};
  handle_call({downloaded_data, Amount}, {Pid, _Tag}, S) ->
      {reply, ok, peer_dict_update(
  		  Pid,
  		  fun(PI) ->
  			  PI#peer_info{
  			    downloaded = PI#peer_info.downloaded + Amount}
  		  end,
  		  S)};
  handle_call(interested, {Pid, _Tag}, S) ->
      {reply, ok, peer_dict_update(
  		  Pid,
  		  fun(PI) ->
  			  PI#peer_info{interested = true}
  		  end,
  		  S)};
  handle_call(not_interested, {Pid, _Tag}, S) ->
      {reply, ok, peer_dict_update(
  		  Pid,
  		  fun(PI) ->
  			  PI#peer_info{interested = false}
  		  end,
  		  S)};
  handle_call(_Request, _From, State) ->
      Reply = ok,
      {reply, Reply, State}.
  