moo/stix/kernel/Number.st

#class Number(Magnitude)
{
	#method add: aNumber
	{
		<primitive: 7>
	}

	#method + aNumber
	{
		<primitive: 7>
	}

	#method - aNumber
	{
		<primitive: 8>
	}

	#method * aNumber
	{
		<primitive: 8>
	}

	#method = aNumber
	{
		<primitive: 10>
	}

	#method < aNumber
	{
		<primitive: 11>
	}

	#method > aNumber
	{
		<primitive: 12>
	}
}