anchor.diff:  label_to_record_field(Label) ->
       case atom_to_list(Label) of
           "$_els" ->
  -            erl_syntax:atom("sub_els");
  +            sub_els;
           [$$|T] ->
  -            erl_syntax:atom(T)
  +            list_to_atom(T)
       end.
   
   prepare_label(Label, Name) when is_atom(Name) ->
  
positive.code:                          [erl_syntax:atom(H), abstract(length(T))],
                           none,
                           [erl_syntax:list(
                              [label_to_record_field(F) || F <- T])])
                         |Acc]
                    catch _:_ ->
                            Acc
  
negative.code: 
  -define(info(F, Args), io:format("xml_gen: " ++ F ++ "~n", Args)).
  -define(warn(F, Args), io:format("* xml_gen warning: " ++ F ++ "~n", Args)).
  
  %%====================================================================
  %% Compiler API
  