branch | jv |
changeset 4099 | 030d35f3e782 |
parent 4088 | 529963173d68 |
parent 4091 | a5bd75ea049c |
child 4104 | ece969d452d8 |
--- a/Parser.st Tue Jan 17 11:18:19 2017 +0000 +++ b/Parser.st Wed Jan 18 10:03:15 2017 +0000 @@ -4451,6 +4451,8 @@ ]. aNode isSuper ifTrue:[ + classToCompileFor isNil ifTrue:[^ nil]. + "if its a super- or here-send, we can do more checking" aNode isHere ifFalse:[ ^ classToCompileFor superclass ? UndefinedObject.