--- a/compiler/PPCContext.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCContext.st	Thu Apr 30 23:43:14 2015 +0200
@@ -137,17 +137,11 @@
 
 !PPCContext methodsFor:'acessing'!
 
-hash
-	^ collection hash
-!
-
 initializeFor: parser
+	rc := 0.
 	parser == root ifTrue: [ ^ self ].
 	
 	root := parser.
-	root allParsersDo: [ :p | 
-		p updateContext: self
-	]
 !
 
 root
@@ -164,32 +158,6 @@
 	readLimit := collection size.
 ! !
 
-!PPCContext methodsFor:'as yet unclassified'!
-
-atWs
-	^ position = ws
-!
-
-goUpTo: char
-	[ position < readLimit ] whileTrue: [ 
-		(collection at: position + 1) = char ifTrue: [ position := position + 1. ^ char ] .
-		position := position + 1.
-	]
-	
-!
-
-setWs
-	^ ws := position
-!
-
-ws
-	^ ws
-!
-
-ws: anInteger
-	ws := anInteger
-! !
-
 !PPCContext methodsFor:'converting'!
 
 asCompiledParserContext
@@ -284,6 +252,32 @@
 	]
 ! !
 
+!PPCContext methodsFor:'whitespace'!
+
+atWs
+	^ position = ws
+!
+
+goUpTo: char
+	[ position < readLimit ] whileTrue: [ 
+		(collection at: position + 1) == char ifTrue: [ position := position + 1. ^ char ] .
+		position := position + 1.
+	]
+	
+!
+
+setWs
+	^ ws := position
+!
+
+ws
+	^ ws
+!
+
+ws: anInteger
+	ws := anInteger
+! !
+
 !PPCContext class methodsFor:'documentation'!
 
 version_HG