Class Parser

back
lexInteger	| start |

   start <- index. "now works for floats as well "

   [ self nextChar isDigit ] whileTrue: [ nil ].

   (self currentChar = $. and: [(text at: index+1 ifAbsent: [$ ]) isDigit])

      ifTrue: [ [self nextChar isDigit] whileTrue: [ nil ] ].

   token <- text from: start to: index - 1