anchor.diff:      {ok, lists:reverse(Acc), Data, Pos};
   unmarshal_array(SubType, Length, Data, Acc, Pos) when is_integer(Length), Length > 0 ->
       case unmarshal(SubType, Data, Pos) of
  -        more -> more;
  +        more -> 
  +			more;
           {ok, Value, Data1, Pos1} ->
               Size = Pos1 - Pos,
               unmarshal_array(SubType, Length - Size, Data1, [Value | Acc], Pos1)
  
positive.code: 
  
  unmarshal_header(Bin) ->
      case unmarshal_list(?HEADER_SIGNATURE, Bin) of
          more -> more;
          {ok, [$l, _, _, ?DBUS_VERSION_MAJOR, Size, _, _], Rest, _} when byte_size(Rest) < Size  ->
              more;
          {ok, [$l, Type, Flags, ?DBUS_VERSION_MAJOR, Size, Serial, Fields], Rest, Pos} ->
  
negative.code:                 more -> more;
                  {ok, Type} ->
                      case unmarshal(Type, Data1, Pos1) of
                          more -> 
  							more;
                          {ok, Value, Data2, Pos2} -> 
  							{ok, #dbus_variant{type=Type, value=Value}, Data2, Pos2}
                      end
              end
      end.
  