--- a/compiler/PPCAnyNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCAnyNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -10,30 +10,26 @@
 !
 
 
-!PPCAnyNode methodsFor:'as yet unclassified'!
+!PPCAnyNode methodsFor:'accessing'!
+
+prefix
+	^ #any
+! !
+
+!PPCAnyNode methodsFor:'analysis'!
 
 acceptsEpsilon
 	^ false
 !
 
-asInlined
-	^ PPCInlineAnyNode new
-		name: name;
-		yourself
-!
-
-compileWith: compiler effect: effect id: id
-	compiler startMethod: id.
-	compiler add: '^ context next ifNil: [ error := true. ].'.
- ^ compiler stopMethod.	
-!
-
 firstCharSet
 	^ PPCharSetPredicate on: [:e | true ] 
-!
+! !
 
-prefix
-	^ #any
+!PPCAnyNode methodsFor:'visiting'!
+
+accept: visitor
+	^ visitor visitAnyNode: self
 ! !
 
 !PPCAnyNode class methodsFor:'documentation'!