anchor.diff:          end,
       DecAST = make_elem_dec_fun(Elem, Tag, AllElems),
       EncAST = make_elem_enc_fun(Elem, Tag, AllElems),
  -    NewRecords = make_record(Elem) ++ NewState#state.records,
  -    NewState#state{ast = DecAST ++ EncAST ++ AttrAST ++
  -                       CDataAST ++ NewState#state.ast,
  -                   records = NewRecords}.
  +    DecAST ++ EncAST ++ AttrAST ++ CDataAST.
   
   %% Replace in `Term' every label found in `Labels'
   %% with the corresponding value.
  
positive.code:     end,
      FileName = filename:basename(Path),
      ModName = filename:rootname(FileName),
      #state{ast = AST, records = RecordsAST} =
          lists:foldl(
            fun({Tag, Elem}, State) ->
                    elem_to_AST(Elem, Tag, State)
            end, #state{all_elems = TaggedElems,
                        known_functions = KnownFuns},
            TaggedElems),
      Module = erl_syntax:attribute(
                 erl_syntax:atom("module"),
                 [erl_syntax:atom(list_to_atom(ModName))]),
  
negative.code:                     (_) ->
                           []
                   end, [Elem#elem.cdata|Elem#elem.attrs ++ Elem#elem.refs]),
      if is_record(Spec, ref) ->
              [Spec|T];
         true ->
              Spec
      end.
  
  group_refs(Refs) ->
      dict:to_list(
  