converted isKindOf: to a dual method

This commit is contained in:
hyunghwan.chung 2017-09-30 04:53:00 +00:00
parent cb2b93d01c
commit c412097f6f

View File

@ -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].