Fix in ClassType - if the class represent UndefinedObject, treat the type as "unknown".
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 31 Jan 2014 04:11:14 +0000
changeset 162 3fbeaaf9bdb5
parent 161 5ff416530ac4
child 163 a65f90af5e75
Fix in ClassType - if the class represent UndefinedObject, treat the type as "unknown".
SmallSense__ClassType.st
--- a/SmallSense__ClassType.st	Wed Jan 29 10:42:31 2014 +0000
+++ b/SmallSense__ClassType.st	Fri Jan 31 04:11:14 2014 +0000
@@ -115,6 +115,13 @@
     ^true
 
     "Created: / 16-12-2011 / 02:00:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isUnknownType
+
+    ^klass == UndefinedObject
+
+    "Created: / 31-01-2014 / 01:30:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ClassType class methodsFor:'documentation'!