anchor.diff:  
   %% API
   -export([start_link/5, connect/3, choke/1, unchoke/1, interested/1,
  -	 send_have_piece/2, complete_handshake/4, uploaded_data/2,
  +	 send_have_piece/2, complete_handshake/4,
   	stop/1]).
   
   %% gen_server callbacks
  
positive.code: %%--------------------------------------------------------------------
  handle_cast(stop, S) ->
      {stop, normal, S};
  handle_cast({connect, IP, Port}, S) ->
      case gen_tcp:connect(IP, Port, [binary, {active, false}],
  			 ?DEFAULT_CONNECT_TIMEOUT) of
  
negative.code: %%--------------------------------------------------------------------
  %% Function: connect(Pid, IP, Port)
  %% Description: Connect to the IP and Portnumber for communication with
  %%   the peer. Note we don't handle the connect in the init phase. This is
  %%   due to the fact that a connect may take a considerable amount of time.
  %%   With this scheme, we spawn off processes, and then make them all attempt
  %%   connects in parallel, which is much easier.
  %%--------------------------------------------------------------------
  connect(Pid, IP, Port) ->
      gen_server:cast(Pid, {connect, IP, Port}).
  