--- a/compiler/PPCStarAnyNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCStarAnyNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -11,21 +11,13 @@
 
 !PPCStarAnyNode methodsFor:'as yet unclassified'!
 
-compileWith: compiler effect: effect id: id
-	compiler startMethod: id.
-	compiler addVariable: 'retval size'.
-	compiler add: 'size := context size - context position.'.
-	compiler add: 'retval := Array new: size.'.
-	compiler add: '(1 to: size) do: [ :e | retval at: e put: context next ].'.
-	compiler add: '^ retval'.
- ^ compiler stopMethod.
-!
-
 prefix
 	^ #starAny
-!
-
-rewrite: changeStatus
-	"Nothing TODO"
 ! !
 
+!PPCStarAnyNode methodsFor:'visiting'!
+
+accept: visitor
+	^ visitor visitStarAnyNode: self
+! !
+