equal
deleted
inserted
replaced
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
10 ! |
10 ! |
11 |
11 |
12 !PPCTokenStarSeparatorNode methodsFor:'as yet unclassified'! |
12 !PPCTokenStarSeparatorNode methodsFor:'visiting'! |
13 |
13 |
14 asInlined |
14 accept: visitor |
15 ^ PPCInlineTokenStarSeparatorNode new |
15 ^ visitor visitTokenStarSeparatorNode: self |
16 message: message; |
|
17 name: name; |
|
18 child: child; |
|
19 yourself |
|
20 ! |
|
21 |
|
22 compileWith: compiler effect: effect id: id |
|
23 compiler startMethod: id. |
|
24 compiler add: 'context skipSeparators.'. |
|
25 ^ compiler stopMethod. |
|
26 ! |
|
27 |
|
28 rewrite: changeStatus |
|
29 "Nothing to do" |
|
30 ! ! |
16 ! ! |
31 |
17 |