changeset 414 | 0eaf09920532 |
parent 392 | 9b297f0d949c |
child 421 | 7e08b31e0dae |
413:5389e6fbb3bc | 414:0eaf09920532 |
---|---|
13 ^ literal size = 0 |
13 ^ literal size = 0 |
14 ! |
14 ! |
15 |
15 |
16 firstCharParser |
16 firstCharParser |
17 ^ literal first asParser |
17 ^ literal first asParser |
18 ! |
|
19 |
|
20 firstCharSet |
|
21 | letter | |
|
22 letter := literal first. |
|
23 ^ PPCharSetPredicate on: [:e | e = letter ] |
|
18 ! |
24 ! |
19 |
25 |
20 literal |
26 literal |
21 |
27 |
22 ^ literal |
28 ^ literal |