anchor.diff:  -export([scan_erl_form/1,parse_erl_form/1,macro_defs/1]).
   -export([parse_file/3]).
   -export([interpret_file_attribute/1]).
  +-export([scan_file/3]).
   
   %% Epp state record.
   -record(epp, {file,				%Current file
  
positive.code: 
  scan_file([{'(',_Llp},{string,_Ls,Name},{',',_Lc},{integer,_Li,Ln},{')',_Lrp},
             {dot,_Ld}], Lf, From, St) ->
      enter_file_reply(From, Name, Ln, -abs(Lf)),
      Ms = dict:store({atom,'FILE'}, {none,[{string,1,Name}]}, St#epp.macs),
      scan_toks(From, St#epp{name=Name,line=Ln+(St#epp.line-Lf),macs=Ms});
  scan_file(_Toks, Lf, From, St) ->
      epp_reply(From, {error,{Lf,epp,{bad,file}}}),
      wait_req_scan(St).
  
negative.code:             [Form | interpret_file_attr(Forms, 0, [File, Delta | Fs])]
      end;
  interpret_file_attr([Form0 | Forms], Delta, Fs) ->
      Form = erl_lint:modify_line(Form0, fun(L) -> {abs(element(1, L)) + Delta, element(2, L)} end),
      [Form | interpret_file_attr(Forms, Delta, Fs)];
  interpret_file_attr([], _Delta, _Fs) ->
      [].
  