--- a/compiler/PPCTokenActionNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,58 +0,0 @@
-"{ Package: 'stx:goodies/petitparser/compiler' }"
-
-"{ NameSpace: Smalltalk }"
-
-PPCActionNode subclass:#PPCTokenActionNode
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:'PetitCompiler-Nodes'
-!
-
-!PPCTokenActionNode methodsFor:'as yet unclassified'!
-
-asFast
-	^ self
-!
-
-compileWith: compiler effect: effect id: id
-	|  |
-	compiler addConstant: block as: id.
-
-	"
-		Actually, do nothing, we are in Token mode and the 
-		child does not return any result and token takes only
-		the input value.
-	"	
-	compiler startMethod: id.
-	compiler add: '^ '.
-	compiler callOnLine: (child compileWith: compiler).
- ^ compiler stopMethod.
-!
-
-rewrite: changeStatus
-	(self hasProperty: #trimmingToken) ifTrue: [ 
-		| retval |
-		changeStatus change.
-		"Get rid of action and sequence with whitespace"
-		retval := child children second child. 	"JK: oups, what a chain!!"
-		retval name ifNil: [ retval name: self name ].
-		^ retval
-	].
-
-	child name ifNil: [  
-		changeStatus change.
-		child name: self name.
-		^ child
-	].
-
-	(child name = self name) ifTrue: [ 
-		changeStatus change.
-		^ child
-	]
-!
-
-suffix
-	^ '_fast'
-! !
-