equal
deleted
inserted
replaced
53 whitespace: node trimmer; |
53 whitespace: node trimmer; |
54 parser: node parser; |
54 parser: node parser; |
55 yourself |
55 yourself |
56 ]. |
56 ]. |
57 |
57 |
58 (node child isKindOf: PPCTokenConsumeNode) ifTrue: [ |
|
59 self change. |
|
60 self halt: 'JK: this can happen???'. |
|
61 ^ PPCTrimmingTokenNode new |
|
62 name: node name; |
|
63 child: node child; |
|
64 tokenClass: node child child tokenClass; |
|
65 whitespace: node trimmer; |
|
66 yourself |
|
67 ]. |
|
68 |
|
69 |
|
70 ^ node |
58 ^ node |
71 ! |
59 ! |
72 |
60 |
73 visitWithTokenVisitor: node |
61 visitWithTokenVisitor: node |
74 | retval forbiddenNodes copyVisitor tokenVisitor | |
62 | retval forbiddenNodes copyVisitor tokenVisitor | |