anchor.diff:  
   ann_c_values(Ann, Vs) -> cerl:ann_c_values(Ann, Vs).
   
  +%% General annotation access functions.
   get_ann(Node) -> cerl:get_ann(Node).
   set_ann(Node, Ann) -> cerl:set_ann(Node, Ann).
   
  
positive.code: comp_record_metadata(Recs, Line) ->
      Ann = [Line],
      Rfun = fun ([Name|Fields]) ->
  		   {Name,[ comp_record_field(Fdef, Ann) || Fdef <- Fields ]}
  	   end,
      Rs = [ Rfun(Rec) || Rec <- Recs ],
      {ann_c_lit(Ann, record),ann_c_lit(Ann, Rs)}.
  -else.
  comp_record_metadata(Recs, Line) ->
      Ann = [Line],
      Rfun = fun ([Name|Fields]) ->
  		   {{record,Name},
  		    [ comp_record_field(Fdef, Ann) || Fdef <- Fields ]}
  	   end,
      Rs = [ Rfun(Rec) || Rec <- Recs ],
      {ann_c_lit(Ann, type),ann_c_lit(Ann, Rs)}.
  -endif.
  
negative.code: ann_c_case(Ann, E, Cs) ->
      cerl:ann_c_case(Ann, E, Cs).
  
  %% Clause functions.
  ann_c_clause(Ann, Ps, B) ->                     %Default true guard
      cerl:ann_c_clause(Ann, Ps, B).
  
  ann_c_clause(Ann, Ps, G, B) ->
      cerl:ann_c_clause(Ann, Ps, G, B).
  
  %% Expression sequence functions.
  ann_c_seq(Ann, A, B) ->
      cerl:ann_c_seq(Ann, A, B).
  
  