author | Claus Gittinger <cg@exept.de> |
Sun, 06 May 2018 00:01:11 +0200 | |
changeset 4241 | 770afcca861e |
parent 4240 | f7899ca6f9e6 |
child 4242 | 7f9426a5c5bc |
--- a/Parser.st Thu Apr 26 15:29:38 2018 +0200 +++ b/Parser.st Sun May 06 00:01:11 2018 +0200 @@ -6578,7 +6578,8 @@ ^ tokenValue ]. ((tokenType == #Integer) - or:[tokenType == #Float]) ifTrue:[ + or:[(tokenType == #Float) + or:[tokenType == #FixedPoint]]) ifTrue:[ ^ tokenValue ]. (tokenType == #String) ifTrue:[