anchor.diff:      end.
   
   is_bad_peer_or_ourselves(PeerId, S) ->
  -    case string:equal(PeerId, S#state.our_peer_id) of
  -	true ->
  +    is_ourselves(PeerId, S) or is_bad_peer(PeerId, S).
  +
  +is_ourselves(PeerId, S) ->
  +    string:equal(PeerId, S#state.our_peer_id).
  +
  +is_bad_peer(PeerId, S) ->
  +    case dict:find(PeerId, S#state.bad_peers) of
  +	{ok, [_E]} ->
  +	    false;
  +	{ok, _X} ->
   	    true;
  -	false ->
  -	    case dict:find(PeerId, S#state.bad_peers) of
  -		{ok, [_E]} ->
  -		    false;
  -		{ok, _X} ->
  -		    true;
  -		error ->
  -		    false
  -	    end
  +	error ->
  +	    false
       end.
   
   find_peer_id_in_process_list(PeerId, S) ->
  
positive.code: 			  PI#peer_info{interested = false}
  		  end,
  		  S)};
  handle_call(_Request, _From, State) ->
      Reply = ok,
      {reply, Reply, State}.
  
negative.code: 
  got_piece_from_peer(Pid, Index) ->
      gen_server:cast(Pid, {got_piece_from_peer, Index}).
  
  new_incoming_peer(Pid, ReservedBytes, PeerId) ->
      gen_server:call(Pid, {new_incoming_peer, ReservedBytes, PeerId}).
  
  %%====================================================================
  %% gen_server callbacks
  