# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1439899782 -3600
# Node ID 1563dce3c5b4c89751862bb4807672d661e6c2dc
# Parent  a6d8b93441b04b9e17e6f9492d85fedb8f430f37
Portability: fixed RBLiteralValueNode>>isLiteralNumber to work under both - Pharo and Smalltalk/X

diff -r a6d8b93441b0 -r 1563dce3c5b4 compiler/extensions.st
--- a/compiler/extensions.st	Mon Aug 17 23:11:56 2015 +0100
+++ b/compiler/extensions.st	Tue Aug 18 13:09:42 2015 +0100
@@ -863,14 +863,15 @@
 !RBLiteralValueNode methodsFor:'*petitcompiler'!
 
 isLiteralNumber
-    ((Smalltalk respondsTo: #isSmalltalk/X) and: [Smalltalk isSmalltalkX]) ifTrue:[
-    	^super isLiteralNumber
+    ((Smalltalk respondsTo: #isSmalltalkX) and: [Smalltalk isSmalltalkX]) ifTrue:[
+        ^super isLiteralNumber
     ] ifFalse:[
-    	"Assume Pharo..."
+        "Assume Pharo..."
          [(NumberParser on: self sourceText ) nextNumber] on: Exception do: [ ^ false ].
          ^ true
     ].
-    
+
+    "Modified: / 17-08-2015 / 23:17:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !RBProgramNode methodsFor:'*petitcompiler'!
diff -r a6d8b93441b0 -r 1563dce3c5b4 compiler/tests/PEGFsaDeterminizationTest.st
--- a/compiler/tests/PEGFsaDeterminizationTest.st	Mon Aug 17 23:11:56 2015 +0100
+++ b/compiler/tests/PEGFsaDeterminizationTest.st	Tue Aug 18 13:09:42 2015 +0100
@@ -9,6 +9,7 @@
 	category:'PetitCompiler-Tests-FSA'
 !
 
+
 !PEGFsaDeterminizationTest methodsFor:'as yet unclassified'!
 
 determinizator
@@ -115,3 +116,10 @@
     self assert: (fsa finalStates anyOne retvals includes: #token2).		
 ! !
 
+!PEGFsaDeterminizationTest class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+
diff -r a6d8b93441b0 -r 1563dce3c5b4 compiler/tests/extras/PPCLRPCompiledParserSmokeTest_Tokenized.st
--- a/compiler/tests/extras/PPCLRPCompiledParserSmokeTest_Tokenized.st	Mon Aug 17 23:11:56 2015 +0100
+++ b/compiler/tests/extras/PPCLRPCompiledParserSmokeTest_Tokenized.st	Tue Aug 18 13:09:42 2015 +0100
@@ -9,9 +9,17 @@
 	category:'PetitCompiler-Extras-Tests-LRP'
 !
 
+
 !PPCLRPCompiledParserSmokeTest_Tokenized methodsFor:'accessing'!
 
 compilerConfiguration
     ^ PPCConfiguration tokenizing
 ! !
 
+!PPCLRPCompiledParserSmokeTest_Tokenized class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+