converted isKindOf: to a dual method
This commit is contained in:
parent
cb2b93d01c
commit
c412097f6f
@ -236,18 +236,12 @@ extend Apex
|
|||||||
^aClass == Class
|
^aClass == Class
|
||||||
}
|
}
|
||||||
|
|
||||||
method(#class) isKindOf: aClass
|
|
||||||
{
|
|
||||||
<primitive: #_is_kind_of>
|
|
||||||
^(self isMemberOf: aClass) or: [self class inheritsFrom: aClass].
|
|
||||||
}
|
|
||||||
|
|
||||||
method isMemberOf: aClass
|
method isMemberOf: aClass
|
||||||
{
|
{
|
||||||
^self class == aClass
|
^self class == aClass
|
||||||
}
|
}
|
||||||
|
|
||||||
method isKindOf: aClass
|
method(#dual) isKindOf: aClass
|
||||||
{
|
{
|
||||||
<primitive: #_is_kind_of>
|
<primitive: #_is_kind_of>
|
||||||
^(self isMemberOf: aClass) or: [self class inheritsFrom: aClass].
|
^(self isMemberOf: aClass) or: [self class inheritsFrom: aClass].
|
||||||
|
Loading…
Reference in New Issue
Block a user