--- a/compiler/benchmarks/PPCSmalltalkNoopParser.st	Fri Jul 24 15:37:23 2015 +0100
+++ b/compiler/benchmarks/PPCSmalltalkNoopParser.st	Fri Jul 24 19:42:09 2015 +0100
@@ -12,21 +12,21 @@
 !PPCSmalltalkNoopParser methodsFor:'accessing'!
 
 startExpression
-    "Make the sequence node has a method node as its parent and that the source is set."
+	"Make the sequence node has a method node as its parent and that the source is set."
 
-    ^ ([ :stream | stream collection ] asParser and , super startExpression) map: [ :source :node | 
-        (RBMethodNode selector: #doIt body: node)
-            source: source.
-        (node statements size = 1 and: [ node temporaries isEmpty ])
-            ifTrue: [ node statements first ]
-            ifFalse: [ node ] ]
+	^ ([ :stream | stream collection ] asParser and , super startExpression) map: [ :source :node | 
+		(RBMethodNode selector: #doIt body: node)
+			source: source.
+		(node statements size = 1 and: [ node temporaries isEmpty ])
+			ifTrue: [ node statements first ]
+			ifFalse: [ node ] ]
 !
 
 startMethod
-    "Make sure the method node has the source code properly set."
-    
-    ^ ([ :stream | stream collection ] asParser and , super startMethod)
-        map: [ :source :node | node source: source ]
+	"Make sure the method node has the source code properly set."
+	
+	^ ([ :stream | stream collection ] asParser and , super startMethod)
+		map: [ :source :node | node source: source ]
 ! !
 
 !PPCSmalltalkNoopParser methodsFor:'grammar'!
@@ -100,7 +100,7 @@
 !
 
 blockArgument
-    ^ super blockArgument ==> #second
+	^ super blockArgument ==> #second
 !
 
 blockBody
@@ -213,107 +213,107 @@
 !PPCSmalltalkNoopParser methodsFor:'private'!
 
 addStatements: aCollection into: aNode
-    aCollection isNil 
-        ifTrue: [ ^ aNode ].
-    aCollection do: [ :each |
-        each class == PPSmalltalkToken
-            ifFalse: [ aNode addNode:  each ]
-            ifTrue: [
-                aNode statements isEmpty
-                    ifTrue: [ aNode addComments: each comments ]
-                    ifFalse: [ aNode statements last addComments: each comments ].
-                aNode periods: (aNode periods asOrderedCollection
-                    addLast: each start;
-                    yourself) ] ].
-    ^ aNode
+	aCollection isNil 
+		ifTrue: [ ^ aNode ].
+	aCollection do: [ :each |
+		each class == PPSmalltalkToken
+			ifFalse: [ aNode addNode:  each ]
+			ifTrue: [
+				aNode statements isEmpty
+					ifTrue: [ aNode addComments: each comments ]
+					ifFalse: [ aNode statements last addComments: each comments ].
+				aNode periods: (aNode periods asOrderedCollection
+					addLast: each start;
+					yourself) ] ].
+	^ aNode
 !
 
 build: aNode assignment: anArray
-    ^ anArray isEmpty
-        ifTrue: [ aNode ]
-        ifFalse: [
-            anArray reverse 
-                inject: aNode
-                into: [ :result :each |
-                    RBAssignmentNode 
-                        variable: each first
-                        value: result
-                        position: each second start ] ]
+	^ anArray isEmpty
+		ifTrue: [ aNode ]
+		ifFalse: [
+			anArray reverse 
+				inject: aNode
+				into: [ :result :each |
+					RBAssignmentNode 
+						variable: each first
+						value: result
+						position: each second start ] ]
 !
 
 build: aNode cascade: anArray 
-    | messages semicolons |
-    ^ (anArray isNil or: [ anArray isEmpty ]) 
-        ifTrue: [ aNode ]
-        ifFalse: [
-            messages := OrderedCollection new: anArray size + 1.
-            messages addLast: aNode.
-            semicolons := OrderedCollection new.
-            anArray do: [ :each | 
-                messages addLast: (self 
-                    build: aNode receiver
-                    messages: (Array with: each second)).
-                semicolons addLast: each first start ].
-            RBCascadeNode messages: messages semicolons: semicolons ]
+	| messages semicolons |
+	^ (anArray isNil or: [ anArray isEmpty ]) 
+		ifTrue: [ aNode ]
+		ifFalse: [
+			messages := OrderedCollection new: anArray size + 1.
+			messages addLast: aNode.
+			semicolons := OrderedCollection new.
+			anArray do: [ :each | 
+				messages addLast: (self 
+					build: aNode receiver
+					messages: (Array with: each second)).
+				semicolons addLast: each first start ].
+			RBCascadeNode messages: messages semicolons: semicolons ]
 !
 
 build: aNode messages: anArray 
-    ^ (anArray isNil or: [ anArray isEmpty ]) 
-        ifTrue: [ aNode ]
-        ifFalse: [
-            anArray 
-                inject: aNode
-                into: [ :rec :msg | 
-                    msg isNil 
-                        ifTrue: [ rec ]
-                        ifFalse: [
-                            RBMessageNode 
-                                receiver: rec
-                                selectorParts: msg first
-                                arguments: msg second ] ] ]
+	^ (anArray isNil or: [ anArray isEmpty ]) 
+		ifTrue: [ aNode ]
+		ifFalse: [
+			anArray 
+				inject: aNode
+				into: [ :rec :msg | 
+					msg isNil 
+						ifTrue: [ rec ]
+						ifFalse: [
+							RBMessageNode 
+								receiver: rec
+								selectorParts: msg first
+								arguments: msg second ] ] ]
 !
 
 build: aTempCollection sequence: aStatementCollection
-    | result |
-    result := self
-        addStatements: aStatementCollection
-        into: RBSequenceNode new.
-    aTempCollection isEmpty ifFalse: [
-        result
-            leftBar: aTempCollection first start
-            temporaries: aTempCollection second
-            rightBar: aTempCollection last start ].
-    ^ result
+	| result |
+	result := self
+		addStatements: aStatementCollection
+		into: RBSequenceNode new.
+	aTempCollection isEmpty ifFalse: [
+		result
+			leftBar: aTempCollection first start
+			temporaries: aTempCollection second
+			rightBar: aTempCollection last start ].
+	^ result
 !
 
 buildArray: aStatementCollection
-    ^ self addStatements: aStatementCollection into: RBArrayNode new
+	^ self addStatements: aStatementCollection into: RBArrayNode new
 !
 
 buildMethod: aMethodNode
-    aMethodNode selectorParts 
-        do: [ :each | aMethodNode addComments: each comments ].
-    aMethodNode arguments
-        do: [ :each | aMethodNode addComments: each token comments ].
-    aMethodNode pragmas do: [ :pragma |
-        aMethodNode addComments: pragma comments.
-        pragma selectorParts 
-            do: [ :each | aMethodNode addComments: each comments ].
-        pragma arguments do: [ :each | 
-            each isLiteralArray
-                ifFalse: [ aMethodNode addComments: each token comments ] ].
-        pragma comments: nil ].
-    ^ aMethodNode
+	aMethodNode selectorParts 
+		do: [ :each | aMethodNode addComments: each comments ].
+	aMethodNode arguments
+		do: [ :each | aMethodNode addComments: each token comments ].
+	aMethodNode pragmas do: [ :pragma |
+		aMethodNode addComments: pragma comments.
+		pragma selectorParts 
+			do: [ :each | aMethodNode addComments: each comments ].
+		pragma arguments do: [ :each | 
+			each isLiteralArray
+				ifFalse: [ aMethodNode addComments: each token comments ] ].
+		pragma comments: nil ].
+	^ aMethodNode
 !
 
 buildString: aString 
-    (aString isEmpty or: [ aString first ~= $' or: [ aString last ~= $' ] ])
-        ifTrue: [ ^ aString ].
-    ^ (aString 
-        copyFrom: 2
-        to: aString size - 1) 
-        copyReplaceAll: ''''''
-        with: ''''
+	(aString isEmpty or: [ aString first ~= $' or: [ aString last ~= $' ] ])
+		ifTrue: [ ^ aString ].
+	^ (aString 
+		copyFrom: 2
+		to: aString size - 1) 
+		copyReplaceAll: ''''''
+		with: ''''
 ! !
 
 !PPCSmalltalkNoopParser methodsFor:'token'!