--- a/compiler/PPCForwardNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCForwardNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -9,34 +9,24 @@
 	category:'PetitCompiler-Nodes'
 !
 
-!PPCForwardNode methodsFor:'compiling'!
-
-check
-	^ (child name = self name and: [child suffix = self suffix]) ifTrue: [ 'referring to itself!!' ]
-!
-
-compileWith: compiler effect: effect id: id
-	compiler startMethod: id.
-	compiler add: '^ '.
-	"child name = 'keyword' ifTrue: [ self halt ]."
-	compiler callOnLine: (child compileWith: compiler).
- ^ compiler stopMethod.	
-!
+!PPCForwardNode methodsFor:'accessing'!
 
 prefix
 	^ #fw
-!
-
-rewrite: changeStatus
-	child name ifNil: [  
-		changeStatus change.
-		child name: self name.
-		^ child
-	].
-
-	(child name = self name) ifTrue: [ 
-		changeStatus change.
-		^ child
-	]
 ! !
 
+!PPCForwardNode methodsFor:'analysis'!
+
+check
+	^ (self name notNil and: [ 
+		child name = self name and: [
+		child suffix = self suffix
+	]]) ifTrue: [ 'referring to itself!!' ]
+! !
+
+!PPCForwardNode methodsFor:'visiting'!
+
+accept: visitor
+	^ visitor visitForwardNode: self
+! !
+