--- a/compiler/PPCNotCharSetPredicateNode.st Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCNotCharSetPredicateNode.st Thu Apr 30 23:43:14 2015 +0200
@@ -10,33 +10,19 @@
!
-!PPCNotCharSetPredicateNode methodsFor:'as yet unclassified'!
-
-asInlined
- ^ PPCInlineNotCharSetPredicateNode new
- predicate: predicate;
- name: name;
- yourself
-!
-
-bodyOfPredicate: compiler
- | classificationId classification |
- classification := self extendClassification: predicate classification.
- classificationId := (compiler idFor: classification prefixed: #classification).
- compiler addConstant: classification as: classificationId.
-
- compiler addOnLine: '(', classificationId, ' at: context peek asInteger)'.
- compiler indent.
- compiler add: ' ifTrue: [ self error: '' predicate not expected'' ]'.
- compiler add: ' ifFalse: [ nil ].'.
- compiler dedent.
-!
+!PPCNotCharSetPredicateNode methodsFor:'analysis'!
firstCharSet
^ firstCharSet := PPCharSetPredicate on: [:e | (predicate value:e) not ]
! !
+!PPCNotCharSetPredicateNode methodsFor:'visiting'!
+
+accept: visitor
+ ^ visitor visitNotCharSetPredicateNode: self
+! !
+
!PPCNotCharSetPredicateNode class methodsFor:'documentation'!
version_HG