added some code for implementing semaphore

stix/kernel/Number.st

@@ -1,37 +0,0 @@
-#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>
-	}
-}

stix/kernel/Process.st

@@ -88,6 +88,7 @@
 
 	#method initialize
 	{
+		count := 0.
 	}
 
 	#method signal 

stix/kernel/Stix.st

@@ -199,13 +199,23 @@
 		self > 0 ifTrue: [^1].
 		^0.
 	}
+
 }
 
-#class SmallInteger(Number)
+
+#class Integer(Number)
+{
+	#method timesRepeat: aBlock
+	{
+		1 to: self by: 1 do: [ :count | aBlock value ].
+	}
+}
+
+#class SmallInteger(Integer)
 {
 }
 
-#class(#liword) LargeInteger(Number)
+#class(#liword) LargeInteger(Integer)
 {
 }