equal
deleted
inserted
replaced
4449 ]. |
4449 ]. |
4450 ]. |
4450 ]. |
4451 ]. |
4451 ]. |
4452 |
4452 |
4453 aNode isSuper ifTrue:[ |
4453 aNode isSuper ifTrue:[ |
|
4454 classToCompileFor isNil ifTrue:[^ nil]. |
|
4455 |
4454 "if its a super- or here-send, we can do more checking" |
4456 "if its a super- or here-send, we can do more checking" |
4455 aNode isHere ifFalse:[ |
4457 aNode isHere ifFalse:[ |
4456 ^ classToCompileFor superclass ? UndefinedObject. |
4458 ^ classToCompileFor superclass ? UndefinedObject. |
4457 ]. |
4459 ]. |
4458 ^ classToCompileFor. |
4460 ^ classToCompileFor. |