--- a/compiler/PPCAndNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCAndNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -9,24 +9,15 @@
 	category:'PetitCompiler-Nodes'
 !
 
-!PPCAndNode methodsFor:'as yet unclassified'!
-
-compileWith: compiler effect: effect id: id
-
-	compiler startMethod: id.
-	compiler addVariable: 'memento'.
-	compiler addVariable: 'retval'.
-	compiler add: (compiler smartRemember: child).
-	
-	compiler add: 'retval :='.
-	compiler callOnLine: (child compileWith: compiler).
-	compiler add: (compiler smartRestore: child).
-
-	compiler add: '^ retval'.
- ^ compiler stopMethod.
-!
+!PPCAndNode methodsFor:'accessing'!
 
 prefix
 	^ #and
 ! !
 
+!PPCAndNode methodsFor:'visiting'!
+
+accept: visitor
+	^ visitor visitAndNode: self
+! !
+