From 081073dd3ccffb4560ee24a02e97a5b4ac9539a5 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 2 Apr 2017 21:32:25 -0700
Subject: parser: do not reject 0.1..0.2 range.

* parser.l: Remove the pattern match which causes 0.1..0
to be rejected.
---
 parser.l | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'parser.l')

diff --git a/parser.l b/parser.l
index 1191618e..2d2c11ea 100644
--- a/parser.l
+++ b/parser.l
@@ -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);
-- 
cgit v1.2.3