--- a/compiler/PPCTokenStarMessagePredicateNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCTokenStarMessagePredicateNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -9,40 +9,9 @@
 	category:'PetitCompiler-Nodes'
 !
 
-!PPCTokenStarMessagePredicateNode methodsFor:'as yet unclassified'!
-
-asFast
-	^ self
-!
-
-asInlined
-	^ PPCInlineTokenStarMessagePredicateNode new
-		name: name;
-		message: message;
-		child: child;
-		yourself
-!
+!PPCTokenStarMessagePredicateNode methodsFor:'visiting'!
 
-compileWith: compiler effect: effect id: id
-	compiler startMethod: id.
-	compiler add: '[ context peek ', message,' ] whileTrue: ['.
-	compiler indent.
-	compiler add: 'context next'.
-	compiler indent.
-	compiler dedent.
-	compiler add: '].'.
- ^ compiler stopMethod.
-!
-
-rewrite: changeStatus
-
-	(message = #isSeparator) ifTrue: [ 
-		changeStatus change.
-		^ PPCTokenStarSeparatorNode new
-			name: name;
-			child: child;
-			message: message;
-			yourself.
-	]
+accept: visitor
+	^ visitor visitTokenStarMessagePredicateNode: self
 ! !