fixed a bug in stix_oowtoint()

fixed bugs of SemaphoreHeap
2016-03-16 10:13:03 +00:00
parent fabc9afee8
commit 117473f638
3 changed files with 38 additions and 16 deletions
--- a/stix/kernel/Context.st
+++ b/stix/kernel/Context.st
@ -146,6 +146,13 @@
 ##		self value ifTrue: [ aBlock value. thisContext restart. ].
 	}

+	#method whileFalse: aBlock
+	{
+		(self value) ifTrue: [^nil].
+		aBlock value. 
+		self whileFalse: aBlock.
+	}
+
 	#method pc
 	{
 		^ip