anchor.diff:      end.
   
   tweet_loop(Sock, Prev, SysTbl) ->
  -    inet:setopts(Sock, [{active, once}]),
       receive
           {tcp, Sock, Data} ->
               case split_tweets(<<Prev/binary, Data/binary>>) of
  
positive.code:     ok = gen_server:call(Svr, accepted),
      % Accept the first message and identify the datagram type.
      {ok, Data} = gen_tcp:recv(Sock, 0),
      case binary_part(Data, 0, 5) of
          <<"tweet">> -> tweet_loop(Sock, Data, SysTbl);
          _ ->
              self() ! {tcp, Sock, Data},
              read_send_loop(Sock, SysTbl)
      end.
  
  
negative.code:                     lists:map(Fun, Msgs),
                      % The incomplete tweet at the end will be attached to the 
                      % next tweet-datagram.
                      inet:setopts(Sock, [{active, once}]),
                      tweet_loop(Sock, Rest, SysTbl)
              end;
          {tcp_closed, Sock} -> ok
  