--- a/compiler/PPCNode.st	Thu May 21 14:12:22 2015 +0100
+++ b/compiler/PPCNode.st	Fri Jul 24 15:06:54 2015 +0100
@@ -241,7 +241,7 @@
         finite := self.
         infinite := anotherNode.
     ] ifFalse: [ 
- 				finite := anotherNode.
+ 								finite := anotherNode.
         infinite := self.	
     ].
         
@@ -488,17 +488,32 @@
     super printOn: aStream.
     aStream nextPut: $(.
     self printNameOn: aStream.
+    self isMarkedForInline ifTrue:[ 
+        aStream nextPutAll: ' INL'
+    ].
     aStream nextPut: $)
+
+    "Modified: / 22-05-2015 / 15:34:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPCNode methodsFor:'testing'!
 
+canHavePPCId
+    ^ true
+!
+
 isMarkedForInline
     ^ self propertyAt: #inlined ifAbsent: [ false ].
 
     "Created: / 23-04-2015 / 15:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+isSequenceNode
+    ^ false
+
+    "Created: / 15-06-2015 / 18:29:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isTokenNode
     ^ false
 !
@@ -513,6 +528,12 @@
     ^ self
 !
 
+asFsa
+    | visitor |
+    visitor := PEGFsaGenerator new.
+    ^ visitor visit: self
+!
+
 replace: node with: anotherNode
 !