anchor.diff:      list_to_tuple([ev_expr(X) || X <- Es]);
   ev_expr({nil,_}) -> [];
   ev_expr({cons,_,H,T}) -> [ev_expr(H) | ev_expr(T)].
  -%%ev_expr({call,Line,{atom,_,F},As}) ->
  +%%ev_expr({call,Anno,{atom,_,F},As}) ->
   %%    true = erl_internal:guard_bif(F, length(As)),
   %%    apply(erlang, F, [ev_expr(X) || X <- As]);
  -%%ev_expr({call,Line,{remote,_,{atom,_,erlang},{atom,_,F}},As}) ->
  +%%ev_expr({call,Anno,{remote,_,{atom,_,erlang},{atom,_,F}},As}) ->
   %%    true = erl_internal:guard_bif(F, length(As)),
   %%    apply(erlang, F, [ev_expr(X) || X <- As]);
   
  
positive.code:     throw(nomatch);
  match1({op,_,'++',{nil,_},R}, Term, Bs, BBs) ->
      match1(R, Term, Bs, BBs);
  match1({op,_,'++',{cons,Li,{integer,L2,I},T},R}, Term, Bs, BBs) ->
      match1({cons,Li,{integer,L2,I},{op,Li,'++',T,R}}, Term, Bs, BBs);
  match1({op,_,'++',{cons,Li,{char,L2,C},T},R}, Term, Bs, BBs) ->
      match1({cons,Li,{char,L2,C},{op,Li,'++',T,R}}, Term, Bs, BBs);
  match1({op,_,'++',{string,Li,L},R}, Term, Bs, BBs) ->
      match1(string_to_conses(L, Li, R), Term, Bs, BBs);
  match1({op,Line,Op,A}, Term, Bs, BBs) ->
      case partial_eval({op,Line,Op,A}) of
  	{op,Line,Op,A} ->
  	    throw(invalid);
  	X ->
  	    match1(X, Term, Bs, BBs)
      end;
  match1({op,Line,Op,L,R}, Term, Bs, BBs) ->
      case partial_eval({op,Line,Op,L,R}) of
  	{op,Line,Op,L,R} ->
  	    throw(invalid);
  	X ->
  	    match1(X, Term, Bs, BBs)
  
negative.code: find_maxline(LC) ->
      put('$erl_eval_max_line', 0),
      F = fun(A) ->
                  case erl_anno:is_anno(A) of
                      true ->
                          L = erl_anno:line(A),
                          case
                              is_integer(L) and (L > get('$erl_eval_max_line'))
                          of
                              true -> put('$erl_eval_max_line', L);
                              false -> ok
                          end;
                      false -> ok
                  end
          end,
      _ = erl_parse:map_anno(F, LC),
      erase('$erl_eval_max_line').
  
  