--- a/compiler/PPCPluggableNode.st	Thu Apr 30 23:43:14 2015 +0200
+++ b/compiler/PPCPluggableNode.st	Sun May 10 06:28:36 2015 +0100
@@ -9,50 +9,58 @@
 	category:'PetitCompiler-Nodes'
 !
 
+
 !PPCPluggableNode methodsFor:'accessing'!
 
 block
-	
-	^ block
+    
+    ^ block
 !
 
 block: anObject
-	
-	block := anObject
+    
+    block := anObject
 !
 
 prefix
-	^ #plug
+    ^ #plug
 ! !
 
 !PPCPluggableNode methodsFor:'analysis'!
 
 acceptsEpsilon
-	^ true
+    ^ true
 !
 
 acceptsEpsilonOpenSet: set
-	^ true
+    ^ true
 !
 
 firstCharSet
-	^ PPCharSetPredicate on: [:char | (block asParser parse: char asString) isPetitFailure not ]
+    ^ PPCharSetPredicate on: [:char | (block asParser parse: char asString) isPetitFailure not ]
 ! !
 
 !PPCPluggableNode methodsFor:'comparing'!
 
 = anotherNode
-	super = anotherNode ifFalse: [ ^ false ].
-	^ block = anotherNode block.
+    super = anotherNode ifFalse: [ ^ false ].
+    ^ block = anotherNode block.
 !
 
 hash
-	^ super hash bitXor: block hash
+    ^ super hash bitXor: block hash
 ! !
 
 !PPCPluggableNode methodsFor:'visiting'!
 
 accept: visitor
-	^ visitor visitPluggableNode: self
+    ^ visitor visitPluggableNode: self
 ! !
 
+!PPCPluggableNode class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+