equal
deleted
inserted
replaced
46 |
46 |
47 ^ node |
47 ^ node |
48 ! |
48 ! |
49 |
49 |
50 visitTokenizingParserNode: node |
50 visitTokenizingParserNode: node |
51 | newWhitespace | |
51 | | |
52 self change. |
52 |
|
53 "Do not visit whitespace, it is tokenizer's job" |
|
54 " self change. |
53 newWhitespace := self visitWithRecognizingComponentVisitor: node whitespace. |
55 newWhitespace := self visitWithRecognizingComponentVisitor: node whitespace. |
54 node replace: node whitespace with: newWhitespace. |
56 node replace: node whitespace with: newWhitespace. |
|
57 " |
55 |
58 |
56 "Do not visit tokens, they will be handled by the scanner:" |
59 "Do not visit tokens, they will be handled by the scanner:" |
57 "self visit: node tokens." |
60 "self visit: node tokens." |
58 |
61 |
59 self visitChild: node parser of: node. |
62 self visitChild: node parser of: node. |