Added Object>>#isKindOf:

Signed-off-by: Stefan Marr <[email protected]>
SOM-st · Nov 29, 2020 · 32193cb · 32193cb
1 parent 06ceed7
commit 32193cb
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/Smalltalk/Object.som b/Smalltalk/Object.som
@@ -103,4 +103,14 @@ Object = nil (
     instVarAt: idx put: obj = primitive
     instVarNamed: sym       = primitive
 
+    isKindOf: class = (
+      | superclass |
+      self class == class ifTrue: [ ^ true ].
+
+
+      [(superclass := self class superclass) == nil] whileFalse: [
+        superclass == class ifTrue: [ ^ true ] ].
+
+      ^ false
+    )
 )