--- a/compiler/PPCSymbolActionNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCSymbolActionNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -10,23 +10,20 @@
 !
 
 
-!PPCSymbolActionNode methodsFor:'as yet unclassified'!
+!PPCSymbolActionNode methodsFor:'accessing'!
 
-asFast
-	^ PPCTokenActionNode new
-		child: child;
-		name: self name;
-		yourself
+symbol
+	^ self block
 !
 
-compileWith: compiler effect: effect id: id
-	compiler startMethod: id.
-	compiler addVariable: 'element'.	
-	compiler add: 'element := '.
-	compiler callOnLine: (child compileWith: compiler).
-	compiler add: 'error ifFalse: [ ^ element ', block asString, ' ].'.
-	compiler add: '^ failure'.
- ^ compiler stopMethod.
+symbol: aSymbol
+	self block: aSymbol
+! !
+
+!PPCSymbolActionNode methodsFor:'visiting'!
+
+accept: visitor
+	^ visitor visitSymbolActionNode: self
 ! !
 
 !PPCSymbolActionNode class methodsFor:'documentation'!