redefined Apex>primitiveFailed

stix/kernel/Apex.st

@@ -219,13 +219,10 @@
 	## -------------------------------------------------------
 	## -------------------------------------------------------
 
-	#method(#class) primitiveFailed
+	## #method(#class) primitiveFailed
-	{
+	## {
-		## TODO: implement this
+	## 	this method will be added after Exception class has been defined.
-		## PrimitiveFailureError signal.
+	## }
-		self dump.
-		'primitive failed' dump.
-	}
 
 	#method primitiveFailed
 	{

stix/kernel/Context.st

@@ -390,3 +390,17 @@ Processor activeProcess terminate.
 		self signal: 'no such message'.
 	}
 }
+
+
+#extend Apex
+{
+	#method(#class) primitiveFailed
+	{
+		## TODO: implement this
+		## PrimitiveFailureError signal.
+		self dump.
+		##'primitive failed' dump.
+# TODO: define a specialized exception class for primitive failure and use it.
+		Exception signal: 'PRIMITIVE FAILED...'.
+	}
+}

stix/kernel/test-011.st

@@ -168,6 +168,10 @@
 	##	self test12.
 
 		##100 timesRepeat: ['>>>>> END OF MAIN' dump].
+
+		## the following line(return:to:) must cause primitive failure...
+		##[ Processor return: 10 to: 20. ] on: Exception do: [:ex | ex messageText dump].
+
 		'>>>>> END OF MAIN' dump.
 	}
 }