changeset 414 | 0eaf09920532 |
parent 396 | ec569977267a |
child 422 | 116d2b2af905 |
--- a/compiler/PPCNotCharSetPredicateNode.st Wed Nov 05 21:40:01 2014 +0000 +++ b/compiler/PPCNotCharSetPredicateNode.st Wed Nov 05 23:05:19 2014 +0000 @@ -32,6 +32,11 @@ firstCharParser ^ (PPPredicateObjectParser on: predicate message: 'predicate not expected') not. +! + +firstCharSet + ^ firstCharSet := PPCharSetPredicate on: [:e | (predicate value:e) not ] + ! ! !PPCNotCharSetPredicateNode class methodsFor:'documentation'!