equal
deleted
inserted
replaced
2914 ]. |
2914 ]. |
2915 "/ if its a recursive invocation of just that selector, do not complain |
2915 "/ if its a recursive invocation of just that selector, do not complain |
2916 (selector = aSelectorString and:[ receiver isSelf]) ifTrue:[ |
2916 (selector = aSelectorString and:[ receiver isSelf]) ifTrue:[ |
2917 ^ aSelectorString |
2917 ^ aSelectorString |
2918 ]. |
2918 ]. |
|
2919 err := err , '\\This is a warning from the compiler - the code has not yet been executed/compiled'. |
2919 newSelector := self correctSelector:aSelectorString |
2920 newSelector := self correctSelector:aSelectorString |
2920 message:err position:pos1 to:pos2 in:selClass for:receiver. |
2921 message:err withCRs position:pos1 to:pos2 in:selClass for:receiver. |
2921 "/ self warning:('#' , aSelectorString , '\\' , err) withCRs position:pos1 to:pos2. |
2922 "/ self warning:('#' , aSelectorString , '\\' , err) withCRs position:pos1 to:pos2. |
2922 ^ newSelector. |
2923 ^ newSelector. |
2923 ]. |
2924 ]. |
2924 ^ aSelectorString |
2925 ^ aSelectorString |
2925 |
2926 |
7049 ! ! |
7050 ! ! |
7050 |
7051 |
7051 !Parser class methodsFor:'documentation'! |
7052 !Parser class methodsFor:'documentation'! |
7052 |
7053 |
7053 version |
7054 version |
7054 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.368 2003-02-02 15:52:47 cg Exp $' |
7055 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.369 2003-02-12 15:27:56 cg Exp $' |
7055 ! ! |
7056 ! ! |
7056 |
7057 |
7057 Parser initialize! |
7058 Parser initialize! |