anchor.diff:      map(fun(Symbol) -> Symbol#symbol.name end, Symbols).
   
   symbol_line(Name, St) ->
  -    {value, #symbol{line = Line}} = symbol_search(Name, St#yecc.all_symbols),
  +    #symbol{line = Line} = symbol_find(Name, St#yecc.all_symbols),
       Line.
   
   symbol_member(Symbol, Symbols) ->
  -    symbol_search(Symbol#symbol.name, Symbols) =/= false.
  -
  -symbol_search(Name, Symbols) ->
  -    keysearch(Name, #symbol.name, Symbols).
  +    symbol_find(Symbol#symbol.name, Symbols) =/= false.
  +
  +symbol_find(Name, Symbols) ->
  +    lists:keyfind(Name, #symbol.name, Symbols).
   
   states_and_goto_table(St0) ->
       St1 = create_symbol_table(St0),
  
positive.code:             compute_states2(Seeds, N, Try, CurrState, StateTab, Tables);
          {merge, M, NewCurrent} ->
              %% io:fwrite(<<"Merging with state ~w\n">>, [M]),
              Try1 = case keysearch(M, 1, Try) of
                         false ->
                             [{M, NewCurrent} | Try];
                         {value, {_, OldCurrent}} ->
                             case ordsets:is_subset(NewCurrent, OldCurrent) of
                                 true ->
                                     Try;
  
negative.code: 
  -import(lists, [append/1, append/2, concat/1, delete/2, filter/2,
                  flatmap/2, foldl/3, foldr/3, foreach/2, keydelete/3,
                  keysort/2, last/1, map/2, member/2, reverse/1,
                  sort/1, usort/1]).
  
  -include("erl_compile.hrl").
  -include("ms_transform.hrl").
  