" Smalltalk/ArrayedCollection.st						-*- Smalltalk -*- "

ArrayedCollection : SequenceableCollection ( size _elements )

ArrayedCollection _size: _size value: _value
[
    self := self _clone.
    {
      ((struct t_Array *)self)->size= _integerObject((int)v__size);
      ((struct t_Array *)self)->_elements= (oop)v__value;
    }
]

ArrayedCollection size
[
    ^size
]

ArrayedCollection _elements
[
    ^_elements
]