# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1430540316 -7200
# Node ID c2ad34a08856cfd8f5ac3b5668b9ebea9f5a145a
# Parent  eb33780df2f9cd15f0cdc3bf4c5a3fb6a98ebdbc
Portability: use `aClass methodDictionary values` instead of `aClass methods`

as on Smalltalk/X. Class>>methods retruns method reader to support filein of various
chunk formats.

diff -r eb33780df2f9 -r c2ad34a08856 compiler/tests/PPCProtype1Test.st
--- a/compiler/tests/PPCProtype1Test.st	Fri May 01 14:39:47 2015 +0200
+++ b/compiler/tests/PPCProtype1Test.st	Sat May 02 06:18:36 2015 +0200
@@ -10,6 +10,7 @@
 	category:'PetitCompiler-Tests-Core'
 !
 
+
 !PPCProtype1Test methodsFor:'context'!
 
 context	
@@ -501,21 +502,23 @@
 !
 
 testTrimmingTokenNested3
-	| identifier kw |
-	kw := ('false' asParser, #word asParser not) trimmingToken name: #kw.
-	identifier := (kw not, (#letter asParser, #word asParser star)) trimmingToken name: #identifier.
-	
-	parser := identifier / kw.
-	parser := parser compileWithConfiguration: configuration.
-	self assert: parser class methodDictionary size = 8.
-	self assert: (parser class methods anySatisfy: [ :m | m selector = #kw ]).
-	self assert: (parser class methods anySatisfy: [ :m | m selector = #kw_fast ]).
+        | identifier kw |
+        kw := ('false' asParser, #word asParser not) trimmingToken name: #kw.
+        identifier := (kw not, (#letter asParser, #word asParser star)) trimmingToken name: #identifier.
+        
+        parser := identifier / kw.
+        parser := parser compileWithConfiguration: configuration.
+        self assert: parser class methodDictionary size = 8.
+        self assert: (parser class methodDictionary values anySatisfy: [ :m | m selector = #kw ]).
+        self assert: (parser class methodDictionary values anySatisfy: [ :m | m selector = #kw_fast ]).
 
-	self assert: parser parse: 'foo'.
-	self assert: result inputValue = 'foo'.
+        self assert: parser parse: 'foo'.
+        self assert: result inputValue = 'foo'.
 
-	self assert: parser parse: 'false'.
-	self assert: result inputValue = 'false'.
+        self assert: parser parse: 'false'.
+        self assert: result inputValue = 'false'.
+
+    "Modified: / 02-05-2015 / 06:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPCProtype1Test methodsFor:'tests - ids'!
@@ -530,3 +533,10 @@
 		yourself.
 ! !
 
+!PPCProtype1Test class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+