Stack Error

Strict

Function Main:Int()
	
	Local test:= New Stack<obj>
	
	Local bob:= New obj("bob",10) 
	test.Push( bob )
	Local joe:= New obj("joe",20) 
	test.Push( joe )
	Local moe:= New obj("moe",30) 
	test.Push( moe )
	
	For Local temp:obj = Eachin test
		Print temp.name + ", " + temp.x
	Next	
	
	test.RemoveEach( joe )	'<----Error here
	
	For Local temp:obj = Eachin test
		Print temp.name + ", " + temp.x
	Next
	
	Return 0

End

Class obj
	Field x:Int 
	Field name:String
	Method New( name:String, x:Int )
		Self.name = name
		Self.x = x
	End
End

Class ObjStack Extends Stack<obj>

	Method ToArray:obj[]()
		Local arr:obj[Length]
		Local i:Int
		For Local t:obj = Eachin Self
			arr[i]=t
			i+=1
		Next
		Return arr
	End
	
	Method Compare:Int( lhs:Object,rhs:Object )
		Local lObj:obj = obj(lhs)
		Local rObj:obj = obj(rhs)
		If( lObj.name = rObj.name And lObj.x = rObj.x )
			Return 0
		End
		Return -1
	End
End

Class ObjectStack Extends Stack<Object>

	Method ToArray:Object[]()
		Local arr:Object[Length]
		Local i:Int
		For Local t:Object = Eachin Self
			arr[i]=t
			i+=1
		Next
		Return arr
	End
	
	Method Compare:Int( lhs:Object,rhs:Object )
		If( lhs = rhs )
			Return 0
		End
		Return -1
	End
End