From 6ae5886f01dfec34a0f6cb02ebd2c32449014398 Mon Sep 17 00:00:00 2001 From: NeeEoo Date: Sun, 5 May 2024 15:11:28 +0200 Subject: [PATCH] Fix bug with scientific notation --- src/syntax/lexer.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/syntax/lexer.ml b/src/syntax/lexer.ml index c3deee69db9..e54f5d86e36 100644 --- a/src/syntax/lexer.ml +++ b/src/syntax/lexer.ml @@ -398,7 +398,7 @@ let rec token lexbuf = | integer, '.', Plus integer_digits, Opt float_suffix -> mk lexbuf (split_float_suffix (lexeme lexbuf)) | '.', Plus integer_digits, Opt float_suffix -> mk lexbuf (split_float_suffix (lexeme lexbuf)) | integer, ('e'|'E'), Opt ('+'|'-'), Plus integer_digits, Opt float_suffix -> mk lexbuf (split_float_suffix (lexeme lexbuf)) - | integer, '.', Star digit, ('e'|'E'), Opt ('+'|'-'), Plus integer_digits, Opt float_suffix -> mk lexbuf (split_float_suffix (lexeme lexbuf)) + | integer, '.', Star integer_digits, ('e'|'E'), Opt ('+'|'-'), Plus integer_digits, Opt float_suffix -> mk lexbuf (split_float_suffix (lexeme lexbuf)) | integer, "..." -> let s = lexeme lexbuf in mk lexbuf (IntInterval (String.sub s 0 (String.length s - 3)))