anchor.diff:  splice_trees(Marker, Trees) when is_atom(Marker) ->
       {splice_trees, Marker, Trees}.
   
  +splice_clauses(Marker, Clauses) when is_atom(Marker) ->
  +    {splice_clauses, Marker, Clauses}.
  +
   f(F)   -> f(F,[]).
   f(F,A) -> io_lib:format(F,A).
   
  
positive.code:               [begin
                     FieldAccess = record_access(MsgVar, MsgName, FName),
                     FValueExpr = ?expr(lists:reverse('<Param>'),
                                        [{replace_tree, '<Param>', FieldAccess}]),
                     {FName, FValueExpr}
                 end
                 || #field{name=FName, occurrence=repeated} <- MsgDef])
  
negative.code: 
  decoder_field_calls(Bindings, MsgName, []=_MsgDef, AnRes) ->
      Key = fetch_binding('<Key>', Bindings),
      WiretypeExpr = ?expr('<Key>' band 7, [replace_tree('<Key>', Key)]),
      Bindings1 = add_binding({'<wiretype-expr>', WiretypeExpr}, Bindings),
      decoder_skip_calls(Bindings1, MsgName, AnRes);
  decoder_field_calls(Bindings, MsgName, MsgDef, AnRes) ->
  