subclassOf?

Function: ]defclass { classA classB -> tOrNil }

file: job.t
package: muf
status: alpha

A simple test to determine whether classA has classB as an ancestor.

stack:
defclass: ClassA ;
stack:
defclass: ClassB   :isA 'ClassA ;
stack:
defclass: ClassC   :isA 'ClassB ;
stack:
'ClassC$s.type 'ClassA$s.type subclassOf?
stack: t
pop 'ClassA$s.type 'ClassC$s.type subclassOf?
stack: nil

Go to the first, previous, next, last section, table of contents.