--- 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