--- 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'!