--- a/compiler/PPCCharSetPredicateNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCCharSetPredicateNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -11,26 +11,6 @@
 
 !PPCCharSetPredicateNode methodsFor:'as yet unclassified'!
 
-asInlined
-	^ PPCInlineCharSetPredicateNode new
-		predicate: predicate;
-		name: name;
-		yourself
-!
-
-bodyOfPredicate: compiler
-	| classification classificationId |
-	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: 'ifFalse: [ self error: ''predicate not found'' ]'.
-	compiler add: 'ifTrue: [ context next ].'.
-	compiler dedent.
-!
-
 start: compiler id: id
 	compiler startMethod: id
 !
@@ -39,3 +19,9 @@
 	^ compiler stopMethod
 ! !
 
+!PPCCharSetPredicateNode methodsFor:'visiting'!
+
+accept: visitor
+	^ visitor visitCharSetPredicateNode: self
+! !
+