18 lines
240 B
Plaintext
18 lines
240 B
Plaintext
class Object
|
|
|
|
Type get_type()
|
|
return self.type
|
|
end
|
|
|
|
Class get_class()
|
|
Type l = self.type
|
|
return l.object_class
|
|
end
|
|
|
|
Word get_class_name()
|
|
Type l = self.type
|
|
Class c = l.object_class
|
|
return c.name
|
|
end
|
|
end
|