changeset 414 | 0eaf09920532 |
parent 392 | 9b297f0d949c |
child 416 | b0fd54ee0412 |
413:5389e6fbb3bc | 414:0eaf09920532 |
---|---|
48 |
48 |
49 firstCharParser |
49 firstCharParser |
50 ^ block asParser |
50 ^ block asParser |
51 ! |
51 ! |
52 |
52 |
53 firstCharSet |
|
54 ^ PPCharSetPredicate on: [:char | (block asParser parse: char asString) isPetitFailure not ] |
|
55 ! |
|
56 |
|
53 prefix |
57 prefix |
54 ^ #plug |
58 ^ #plug |
55 ! ! |
59 ! ! |
56 |
60 |