anchor.diff:  %% The return value is ignored.
   %%--------------------------------------------------------------------
   terminate(Reason, S = #state{listen_socket=Sck}) when Sck =/= undefined ->
  +    ?INFO("Closed listen socket.", []),
       gen_tcp:close(Sck),
       terminate(Reason, S#state{listen_socket=undefined});
   terminate(_Reason, _State) ->
  
positive.code: %% Initiates the server
  %%--------------------------------------------------------------------
  init([Parent, Host, Port, Options]) ->
      GenTcpOptions = gen_tcp_options(lists:append([{ip, Host}, {active, false}], Options)),
      {ok, Socket} = gen_tcp:listen(Port, GenTcpOptions),
      {ok, Acceptor} = proc_lib:start_link(?MODULE, acceptor, [self(), Socket]),
      {ok, #state{listen_socket=Socket,
                  acceptor=Acceptor,
  
negative.code:                 cp_monitor=erlang:monitor(process, Parent),
                  host=Host,
                  port=Port,
                  options=Options}};
  init({error, Reason}, _) ->
      {stop, {gen_tcp, Reason}}.
  
  %%--------------------------------------------------------------------
  %% @private
  