5 Oct
2001
5 Oct
'01
5:43 p.m.
- The following function, the '******' line is wrong. I'm not sure how
to fix this; I just hacked the generated C file.
context: thisCntx hasSender: aContext "Does thisCntx have aContext in its sender chain?" | s nilOop | self inline: true. thisCntx == aContext ifTrue: [^ false]. nilOop _ nilObj. s _ self fetchPointer: SenderIndex ofObject: thisCntx. [s == nilOop] whileFalse: [s == aContext ifTrue: [^ true]. s _ s self fetchPointer: SenderIndex ofObject: s]. *********************************************** ^ false
Scott -
Good catch.
I didn't write this method, but I am certain it should read:
s _ self fetchPointer: SenderIndex ofObject: s].
The loop is simply crawling up the sender chain (as per the comment).
- Dan