equal
deleted
inserted
replaced
23 ^ self propertyAt: #nextFsa |
23 ^ self propertyAt: #nextFsa |
24 ! |
24 ! |
25 |
25 |
26 nextFsa: aPEGFsa |
26 nextFsa: aPEGFsa |
27 self propertyAt: #nextFsa put: aPEGFsa |
27 self propertyAt: #nextFsa put: aPEGFsa |
|
28 ! |
|
29 |
|
30 suffix |
|
31 ^ nil |
28 ! ! |
32 ! ! |
29 |
33 |
30 !PPCTokenConsumeNode methodsFor:'as yet unclassified'! |
34 !PPCTokenConsumeNode methodsFor:'as yet unclassified'! |
31 |
35 |
32 markForInline |
36 markForInline |
33 self error: 'current infrastructure does not allow for this!!'. |
|
34 ^ super markForInline |
37 ^ super markForInline |
35 ! ! |
38 ! ! |
36 |
39 |
37 !PPCTokenConsumeNode methodsFor:'ids'! |
40 !PPCTokenConsumeNode methodsFor:'ids'! |
38 |
41 |