equal
deleted
inserted
replaced
10 ! |
10 ! |
11 |
11 |
12 !PPCForwardNode methodsFor:'accessing'! |
12 !PPCForwardNode methodsFor:'accessing'! |
13 |
13 |
14 prefix |
14 prefix |
15 ^ #fw |
15 ^ #fw |
16 ! ! |
16 ! ! |
17 |
17 |
18 !PPCForwardNode methodsFor:'analysis'! |
18 !PPCForwardNode methodsFor:'analysis'! |
19 |
19 |
20 check |
20 check |
21 ^ (self name notNil and: [ |
21 ^ (self name notNil and: [ |
22 child name = self name and: [ |
22 child name = self name and: [ |
23 child suffix = self suffix |
23 child suffix = self suffix |
24 ]]) ifTrue: [ 'referring to itself!!' ] |
24 ]]) ifTrue: [ 'referring to itself!!' ] |
25 ! ! |
25 ! ! |
26 |
26 |
27 !PPCForwardNode methodsFor:'visiting'! |
27 !PPCForwardNode methodsFor:'visiting'! |
28 |
28 |
29 accept: visitor |
29 accept: visitor |
30 ^ visitor visitForwardNode: self |
30 ^ visitor visitForwardNode: self |
31 ! ! |
31 ! ! |
32 |
32 |