equal
deleted
inserted
replaced
180 |
180 |
181 testStarMessagePredicate |
181 testStarMessagePredicate |
182 | starNode | |
182 | starNode | |
183 starNode := PPCStarMessagePredicateNode new |
183 starNode := PPCStarMessagePredicateNode new |
184 message: #isLetter; |
184 message: #isLetter; |
|
185 child: PPCSentinelNode instance; |
185 yourself. |
186 yourself. |
186 |
187 |
187 node := PPCTokenNode new |
188 node := PPCTokenNode new |
188 child: starNode; |
189 child: starNode; |
189 yourself. |
190 yourself. |
195 |
196 |
196 testStarMessagePredicate2 |
197 testStarMessagePredicate2 |
197 | starNode | |
198 | starNode | |
198 starNode := PPCStarMessagePredicateNode new |
199 starNode := PPCStarMessagePredicateNode new |
199 message: #isSeparator; |
200 message: #isSeparator; |
|
201 child: PPCSentinelNode instance; |
200 yourself. |
202 yourself. |
201 |
203 |
202 node := PPCTokenNode new |
204 node := PPCTokenNode new |
203 child: starNode; |
205 child: starNode; |
204 yourself. |
206 yourself. |