anchor.diff:  macro_ref([_Token | Rest]) ->
       macro_ref(Rest).
   
  -all_macro_uses(D0) ->
  -    L = dict:to_list(D0),
  -    D = dict:new(),
  -    add_macro_uses(L, D).
  -
  -add_macro_uses([], D) ->
  -    D;
  -add_macro_uses([{Key, Def} | Rest], D0) ->
  -    add_macro_uses(Rest, dict:store(Key, macro_uses(Def), D0)).
  +%% all_macro_uses(D0) ->
  +%%     L = dict:to_list(D0),
  +%%     D = dict:new(),
  +%%     add_macro_uses(L, D).
  +
  +%% add_macro_uses([], D) ->
  +%%     D;
  +%% add_macro_uses([{Key, Def} | Rest], D0) ->
  +%%     add_macro_uses(Rest, dict:store(Key, macro_uses(Def), D0)).
   
   %% scan_undef(Tokens, UndefLine, From, EppState)
  -
  -scan_undef([{'(',_Llp},{atom,_Lm,M},{')',_Lrp},{dot,_Ld}], _Lu, From, St) ->
  -    scan_toks(From, St#epp{macs=dict:erase({atom,M}, St#epp.macs),
  -			   uses=all_macro_uses(St#epp.macs)});
  -scan_undef([{'(',_Llp},{var,_Lm,M},{')',_Lrp},{dot,_Ld}], _Lu, From,St) ->
  -    scan_toks(From, St#epp{macs=dict:erase({atom,M}, St#epp.macs),
  -			   uses=all_macro_uses(St#epp.macs)});
  -scan_undef(_Toks, Lu, From,St) ->
  -    epp_reply(From, {error,{Lu,epp,{bad,undef}}}),
  +scan_undef([{'(',_Llp},{atom,_Lm,M},{')',_Lrp},{dot,_Ld}], _Undef, From, St) ->
  +    Macs = dict:erase({atom,M}, St#epp.macs),
  +    Uses = dict:erase({atom,M}, St#epp.uses),
  +    scan_toks(From, St#epp{macs=Macs, uses=Uses});
  +scan_undef([{'(',_Llp},{var,_Lm,M},{')',_Lrp},{dot,_Ld}], _Undef, From,St) ->
  +    Macs = dict:erase({atom,M}, St#epp.macs),
  +    Uses = dict:erase({atom,M}, St#epp.uses),
  +    scan_toks(From, St#epp{macs=Macs, uses=Uses});
  +scan_undef(_Toks, Undef, From, St) ->
  +    epp_reply(From, {error,{loc(Undef),epp,{bad,undef}}}),
       wait_req_scan(St).
  -
   %% scan_include(Tokens, IncludeLine, From, St)
   
   scan_include([{'(',_Llp},{string,_Lf,NewName0},{')',_Lrp},{dot,_Ld}], Li, 
  
positive.code: interpret_file_attr([], _Delta, _Fs) ->
       [].
  
  
negative.code: stringify1([T | Tokens]) ->
      [io_lib:format(" ~s", [token_src(T)]) | stringify1(Tokens)].
  
  %% stringify(L) ->
  %%    [$\s | S] = lists:flatten(stringify1(L)),
  %%    [{string, 1, S}].
  
  stringify(Ts, L) ->
      [$\s | S] = lists:flatten(stringify1(Ts)),
      [{string, L, S}].
  
  %% epp_request(Epp)
  %% epp_request(Epp, Request)
  