anchor.diff:  sax_f(Fun) ->
     fun(RawXML,O) -> 
         try [erlsom:sax(encoding(RawXML),[],sax_if(Fun))|O]
  -      catch error:R -> ?log([{erlang:get_stacktrace(),RawXML}]),exit(R)
  +      catch error:R -> ?log([{bt,erlang:get_stacktrace()},{doc,RawXML}]),
  +                       exit(R)
         end
     end.
   
  
positive.code:      case Bin of
         <<_:Off/binary>> ->
           {cont,?tail_0()};
         <<_:Off/binary,0,R:4/binary,Rs/binary>> ->
           exit([{trailing_bytes,byte_size(Rs)+4},{tail,R}]);
         <<_:Off/binary,0,R/binary>> ->
           exit([{trailing_bytes,byte_size(R)},{tail,R}])
       end;
       (?tail(Bin,Off)) -> 
        case Bin of
  
negative.code: term_f(Fun) ->
    fun(TermBin,O) ->
        try Fun(to_term(TermBin),O)
        catch {parsing_failed,R} -> ?log([{parse_error,R},{string,TermBin}]),O
        end
    end.
    
  