--- a/compiler/PPCStarCharSetPredicateNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCStarCharSetPredicateNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -11,25 +11,6 @@
 
 !PPCStarCharSetPredicateNode methodsFor:'accessing'!
 
-compileWith: compiler effect: effect id: id
-	| classification classificationId |
-	
-	compiler startMethod: id.
-	classification := self extendClassification: predicate classification.
-	classificationId := compiler idFor: classification prefixed: #classification.
-	compiler addConstant: classification as: classificationId.
-	
-	compiler addVariable: 'retval'.
-	compiler add: 'retval := OrderedCollection new.'.	
-	compiler add: '[ ', classificationId, ' at: context peek asInteger ] whileTrue: ['.
-	compiler indent.
-	compiler add: ' retval add: context next.'.
-	compiler dedent.
-	compiler add: '].'.
-   compiler add: '^ retval asArray'.
- ^ compiler stopMethod.
-!
-
 extendClassification: classification
 	^ (classification asOrderedCollection addLast: false; yourself) asArray
 !
@@ -50,10 +31,6 @@
 
 prefix
 	^ #starPredicate
-!
-
-rewrite: changeStatus
-	"Nothing TODO"
 ! !
 
 !PPCStarCharSetPredicateNode methodsFor:'comparing'!
@@ -67,3 +44,9 @@
 	^ super hash bitXor: predicate hash
 ! !
 
+!PPCStarCharSetPredicateNode methodsFor:'visiting'!
+
+accept: visitor
+	^ visitor visitStarCharSetPredicateNode: self
+! !
+