Class new title: Vector
	subclassof: Array
	fields: ''
	declare: ''

, t1 | t2 
	[t2 _ self growby: 1.
	t2 last_ t1.
	t2]

argsOff: t1 
	[t1 pop: self length]

asVector

base: t1 | t2 t3  
	[t2 _ Stream default.
	for t3 to: self length do
		[t2 append: (self  t3 base: t1).
		t2 space].
	t2 contents]

emitForValue: t1 on: t2 | t3  
	[for t3 from: self do
		[t3 emitForValue: t1 on: t2]]

firstPush 
	[(self  1) firstPush]

hex | t1 t2  
	[t1 _ (String new: 4 * self length) asStream.
	for t2 from: self do
		[t1 append: t2 hex].
	t1 contents]

length 
	[self length]

max | t1 t2  
	[t1 _ self  1.
	for t2 to: self length do
		[self  t2 > t1  [t1 _ self  t2]].
	t1]

nail 
	[user croak] primitive: 53

printon: t1 | t2  
	[t1 append: '('.
	for t2 to: self length do
		[t1 print: self  t2.
		t1 space].
	t1 append: ')']

remote: t1 | t2  
	[for t2 from: self do
		[t2 remote: t1]]

sizeForValue | t1 t2  
	[t1 _ 0.
	for t2 from: self do
		[t1 _ t1 + t2 sizeForValue].
	t1]

unNail 
	[user croak] primitive: 53