--- a/compiler/PPCTokenSequenceNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCTokenSequenceNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -10,35 +10,18 @@
 !
 
 
-!PPCTokenSequenceNode methodsFor:'as yet unclassified'!
-
-asFast
-	^ self
-!
-
-compileWith: compiler effect: effect id: id
-
-	compiler startMethod: id.
-	compiler addVariable: 'memento'.			
-	compiler add: (compiler smartRemember: self).
-
-"	self addGuard: compiler."
-
-	compiler call: ((children at: 1) compileWith: compiler).
-	compiler add: 'error ifTrue: [ ^ failure ].'.
-
-	(2 to: children size) do: [ :idx  | |child|
-		child := children at: idx.
-		compiler call: (child compileWith: compiler).
-		compiler add: 'error ifTrue: [ ', (compiler smartRestore: self) ,' ^ failure ].'.
-	].
- ^ compiler stopMethod.
-!
+!PPCTokenSequenceNode methodsFor:'accessing'!
 
 suffix
 	^ #'_fast'
 ! !
 
+!PPCTokenSequenceNode methodsFor:'visiting'!
+
+accept: visitor
+	^ visitor visitTokenSequenceNode: self
+! !
+
 !PPCTokenSequenceNode class methodsFor:'documentation'!
 
 version_HG