anchor.diff:                                  end || R <- RFields],
                     Fun = list_to_atom(atom_to_list(Record)++"_pretty"),
                     {[rf(Record, Fun, FieldNames) | Funcs],
  -                   [{attribute,1,export,[{Fun,1}]} | Exprts]};
  +                   [{attribute,1,export,[{Fun,1}]} | Exports]};
                (_, Acc) -> Acc
             end, {[], []}, Forms),
           case ins_exprts(Exports, Forms) of
  
positive.code:             Forms1 ->
                  [{eof,_} = EOF | Rest] = lists:reverse(Forms1),
                  lists:reverse([EOF|Functions]++Rest)
          end
      catch
          _:Error ->
  
negative.code:             Forms
      end.
  
  ins_exprts(Exports, [_|_] = Forms) ->
      case lists:usort([lists:member(E, Forms) || E <- Exports]) of
          [false] -> ins_exprts(Exports, {[], Forms});
          _ -> Forms
      end;
  ins_exprts([], {Heads,Tail}) -> lists:reverse(Heads)++Tail;
  ins_exprts(Exports, {Heads, []}) ->
      [{attribute,_,file,_} = F, {attribute,_,module,_} = M | R] = lists:reverse(Heads),
      [F,M|Exports++R];
  ins_exprts(Exports, {Heads, [{attribute,_,export,_} = E | Tail]}) ->
      ins_exprts([], {[E | Exports] ++ Heads, Tail});
  ins_exprts(Exports, {Heads, [F | Tail]}) ->
  