equal
deleted
inserted
replaced
861 ! ! |
861 ! ! |
862 |
862 |
863 !RBLiteralValueNode methodsFor:'*petitcompiler'! |
863 !RBLiteralValueNode methodsFor:'*petitcompiler'! |
864 |
864 |
865 isLiteralNumber |
865 isLiteralNumber |
866 ((Smalltalk respondsTo: #isSmalltalk/X) and: [Smalltalk isSmalltalkX]) ifTrue:[ |
866 ((Smalltalk respondsTo: #isSmalltalkX) and: [Smalltalk isSmalltalkX]) ifTrue:[ |
867 ^super isLiteralNumber |
867 ^super isLiteralNumber |
868 ] ifFalse:[ |
868 ] ifFalse:[ |
869 "Assume Pharo..." |
869 "Assume Pharo..." |
870 [(NumberParser on: self sourceText ) nextNumber] on: Exception do: [ ^ false ]. |
870 [(NumberParser on: self sourceText ) nextNumber] on: Exception do: [ ^ false ]. |
871 ^ true |
871 ^ true |
872 ]. |
872 ]. |
873 |
873 |
|
874 "Modified: / 17-08-2015 / 23:17:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
874 ! ! |
875 ! ! |
875 |
876 |
876 !RBProgramNode methodsFor:'*petitcompiler'! |
877 !RBProgramNode methodsFor:'*petitcompiler'! |
877 |
878 |
878 isLiteralNumber |
879 isLiteralNumber |