anchor.diff:  %% of the generated .erl file by the HiPE compiler.  Please do not remove.
   -compile([{hipe,[{regalloc,linear_scan}]}]).
   
  +-export_type([abstract_clause/0, abstract_expr/0, abstract_form/0,
  +              error_info/0]).
  +
  +-type abstract_clause() :: term().
  +-type abstract_expr() :: term().
  +-type abstract_form() :: term().
  +-type error_description() :: term().
  +-type error_info() :: {erl_scan:line(), module(), error_description()}.
  +-type token() :: {Tag :: atom(), Line :: erl_scan:line()}.
   
   %% mkop(Op, Arg) -> {op,Line,Op,Arg}.
   %% mkop(Left, Op, Right) -> {op,Line,Op,Left,Right}.
  
positive.code: 	{error,_} = Err -> Err
      end.
  
  parse_term(Tokens) ->
      case parse([{atom,0,f},{'(',0},{')',0},{'->',0}|Tokens]) of
  	{ok,{function,_Lf,f,0,[{clause,_Lc,[],[],[Expr]}]}} ->
  
negative.code: mapl(_, []) ->
  	[].
  
  %%  Convert between the abstract form of a term and a term.
  
  -spec normalise(AbsTerm) -> Data when
        AbsTerm :: abstract_expr(),
        Data :: term().
  normalise({char,_,C}) -> C;
  normalise({integer,_,I}) -> I;
  normalise({float,_,F}) -> F;
  