"Blair McGlashan" <
[hidden email]> wrote in message
news:
[hidden email]...
> "Steve Waring" <
[hidden email]> wrote in message
> news:
[hidden email]...
> > Hi,
> >
> > Its obscure but should VariableEnvironment>>includesClass: be
> >
> > (super includesClass: aClass) ifFalse: [^false].
> > (instanceVariables includesKey: aClass name "added #name") ifTrue:
> [^true].
> > (classVariables includesKey: aClass name "added #name") ifTrue: [^true].
> > ^((self selectorCacheFor: aClass)
> > detect: [:each | self includesSelector: each in: aClass]
> > ifNone: [nil]) notNil
>
> That's one for John Brant really, but judging from the rest of the class I
> think you must be right.
The code was running to fast, so we needed to slow it down :). Actually, I
believe that the code was originally an optimization, so we didn't need to
test the last step. I'm guessing that we changed the representation and also
sped up the last step, so that the "optimization" is no longer necessary.
You should be able to remove the two lines, since obviously the
"optimization" isn't needed, or you can change it to send the #name message.
John Brant