Portability: fixed RBLiteralValueNode>>isLiteralNumber to work under both - Pharo and Smalltalk/X
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 18 Aug 2015 13:09:42 +0100
changeset 519 1563dce3c5b4
parent 518 a6d8b93441b0
child 520 9ccc84deaea0
Portability: fixed RBLiteralValueNode>>isLiteralNumber to work under both - Pharo and Smalltalk/X
compiler/extensions.st
compiler/tests/PEGFsaDeterminizationTest.st
compiler/tests/extras/PPCLRPCompiledParserSmokeTest_Tokenized.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'!
--- 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> $'
+! !
+
--- 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> $'
+! !
+