anchor.diff:                 <<_:Length/binary, Rest2/binary>> = Rest,
                  '<call-read-field>'(Rest2, 0, 0, '<Params>')
          end,
  -       [{replace_term, '<call-recursively>', SkipLenDelimFnName},
  -        {replace_term, '<call-read-field>', ReadFieldFnName},
  -        {splice_trees, '<Params>', Params}]),
  +       [replace_term('<call-recursively>', SkipLenDelimFnName),
  +        replace_term('<call-read-field>', ReadFieldFnName),
  +        splice_trees('<Params>', Params)]),
        "\n\n",
        %% skip_32_<MsgName>/2,4
        %% skip_64_<MsgName>/2,4
  
positive.code:          fun(<<_:'<NumBits>', Rest/binary>>, '<Fill>', '<Params>') ->
                   '<call-read-field>'(Rest, '<Zeros>', '<Params>')
           end,
           [{replace_term, '<call-read-field>', ReadFieldFnName},
            {replace_term, '<NumBits>', NumBits},
            {splice_trees, '<Fill>', Fill},
            {splice_trees, '<Zeros>', Zeros},
            {splice_trees, '<Params>', Params}]),
         "\n\n"]
        || NumBits <- [32, 64]]].
  
  
negative.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])
  