--- a/compiler/PPCTokenConsumeNode.st Fri Jul 31 14:07:31 2015 +0100
+++ b/compiler/PPCTokenConsumeNode.st Mon Aug 17 12:56:02 2015 +0100
@@ -15,10 +15,31 @@
super name: value.
self child name isNil ifTrue: [
- self child name: self child prefix, '_', value.
+ self child name: value.
]
!
+nextFsa
+ ^ self propertyAt: #nextFsa
+!
+
+nextFsa: aPEGFsa
+ self propertyAt: #nextFsa put: aPEGFsa
+! !
+
+!PPCTokenConsumeNode methodsFor:'as yet unclassified'!
+
+markForInline
+ self error: 'current infrastructure does not allow for this!!'.
+ ^ super markForInline
+! !
+
+!PPCTokenConsumeNode methodsFor:'ids'!
+
+defaultName
+ ^ #token
+!
+
prefix
^ #consume
! !