anchor.diff:  		  Pid,
   		  fun(PI) ->
   			  PI#peer_info{
  -			    choking = true}
  +			    remote_choking = true}
   		  end,
   		  S)};
   handle_call(unchoked, {Pid, _Tag}, S) ->
  
positive.code:     Interested    = find_interested_peers(S#state.peer_process_dict),
  
      % N fastest interesteds should be kept
      {FastestInterested, Rest} =
  	find_fastest_peers(?DEFAULT_NUM_DOWNLOADERS,
  			   Interested),
      unchoke_peers(dict:fetch_keys(FastestInterested)),
  
      % All peers not interested should be unchoked
      unchoke_peers(dict:fetch_keys(NotInterested)),
  
negative.code: -record(peer_info, {uploaded = 0,
  		    downloaded = 0,
  		    interested = false,
  		    remote_choking = true,
  
  		    optimistic_unchoke = false,
  		    ip = none,
  		    port = 0,
  		    peer_id = none}).
  