--- a/compiler/PPCAbstractLiteralNode.st	Thu Apr 30 23:43:14 2015 +0200
+++ b/compiler/PPCAbstractLiteralNode.st	Sun May 10 06:28:36 2015 +0100
@@ -12,51 +12,51 @@
 !PPCAbstractLiteralNode methodsFor:'accessing'!
 
 literal
-	
-	^ literal
+    
+    ^ literal
 !
 
 literal: anObject
-	
-	literal := anObject
+    
+    literal := anObject
 !
 
 prefix
-	^ #lit
+    ^ #lit
 ! !
 
 !PPCAbstractLiteralNode methodsFor:'analysis'!
 
 acceptsEpsilon
-	^ literal size = 0
+    ^ literal size = 0
 !
 
 firstCharSet
-	| letter |
-	letter := literal first.
-	^ PPCharSetPredicate on: [:e | e = letter ]
+    | letter |
+    letter := literal first.
+    ^ PPCharSetPredicate on: [:e | e = letter ]
 ! !
 
 !PPCAbstractLiteralNode methodsFor:'comparison'!
 
 = anotherNode
-	super = anotherNode ifFalse: [ ^ false ].
-	^ literal = anotherNode literal.
+    super = anotherNode ifFalse: [ ^ false ].
+    ^ literal = anotherNode literal.
 !
 
 hash
-	^ super hash bitXor: literal hash
+    ^ super hash bitXor: literal hash
 ! !
 
 !PPCAbstractLiteralNode methodsFor:'compiling'!
 
 encodeQuotes: string
-	| x s |
-	s := WriteStream on: ''.
-	1 to: string size do: [ :i|
-		s nextPut: (x := string at: i).
-		x = $' ifTrue: [ s nextPut: x ].
-	].
-	^ s contents
+    | x s |
+    s := WriteStream on: ''.
+    1 to: string size do: [ :i|
+        s nextPut: (x := string at: i).
+        x = $' ifTrue: [ s nextPut: x ].
+    ].
+    ^ s contents
 ! !