changeset 414 | 0eaf09920532 |
parent 392 | 9b297f0d949c |
child 416 | b0fd54ee0412 |
--- a/compiler/PPCPluggableNode.st Wed Nov 05 21:40:01 2014 +0000 +++ b/compiler/PPCPluggableNode.st Wed Nov 05 23:05:19 2014 +0000 @@ -50,6 +50,10 @@ ^ block asParser ! +firstCharSet + ^ PPCharSetPredicate on: [:char | (block asParser parse: char asString) isPetitFailure not ] +! + prefix ^ #plug ! !