anchor.diff:      token_dot ->
         X = read_no_eof(LI),
         case token(LI) of
  -	RightDelimiter ->
  -	  lists:reverse(Acc, X)
  +        RightDelimiter ->
  +          lists:reverse(Acc, X)
         end;
       Token ->
         X = read_dispatch_no_eof(LI, Token),
  
positive.code: 
  -module(es_read).
  
  -export([read/1]).
  
  %%
  
  read(LI) ->
    read_dispatch(LI, token(LI), true).
  
  read_no_eof(LI) ->
    read_dispatch_no_eof(LI, token(LI)).
  
negative.code:       es_datum:binary_to_string(list_to_binary(String));
      token_eof ->
        case EofOK of
          true -> es_datum:mk_eof_object();
          false -> erlang:throw(premature_eof)
        end;
      token_rparen ->
        erlang:throw(expected_datum_got_rparen);
  