anchor.diff:    
   to_term(Bin) ->
     try
  -    {ok,Ts,_}= erl_scan:string(binary_to_list(Bin)),
  +    {ok,Ts,_} = erl_scan:string(binary_to_list(Bin)),
       {ok,Term} = erl_parse:parse_term(Ts),
       Term
     catch
  
positive.code:          , xml/3
           , term/3
           , line/3
           , fold/4]).
  
  -define(BLOCK, 1048576).
  
negative.code:       exit({open_error, R, Filename})
    end.
  
  wrap(Fun,line) -> Fun;
  wrap(Fun,sax)  -> sax_f(Fun);
  wrap(Fun,xml)  -> Fun;
  wrap(Fun,term) -> term_f(Fun);
  wrap(Fun,zet)  -> Fun.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %%% term funs
  