diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-04-02 21:32:25 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-04-02 21:32:25 -0700 |
commit | 081073dd3ccffb4560ee24a02e97a5b4ac9539a5 (patch) | |
tree | 4256791cf9a3e4f8eb7da368b235e18d83d493a0 /parser.l | |
parent | f97195a85409041f9dae13b630e9e2a6418c3cb1 (diff) | |
download | txr-081073dd3ccffb4560ee24a02e97a5b4ac9539a5.tar.gz txr-081073dd3ccffb4560ee24a02e97a5b4ac9539a5.tar.bz2 txr-081073dd3ccffb4560ee24a02e97a5b4ac9539a5.zip |
parser: do not reject 0.1..0.2 range.
* parser.l: Remove the pattern match which causes 0.1..0
to be rejected.
Diffstat (limited to 'parser.l')
-rw-r--r-- | parser.l | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -310,8 +310,7 @@ UONLY {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U} <SPECIAL>{WS}({FLO}[.]?|{FLODOT}){TOK} | <BRACED>{WS}({FLO}[.]?|{FLODOT}){BTOK} | -<NESTED>{WS}({FLO}[.]?|{FLODOT}){NTOK} | -<SPECIAL,NESTED,BRACED>{FLO}[.][^.]? { +<NESTED>{WS}({FLO}[.]?|{FLODOT}){NTOK} { val str = string_utf8(yytext); yyerrorf(yyg, lit("trailing junk in floating-point literal: ~a"), str, nao); |