Fixes parsing of TIME$ in as PRINT parameter.

The parser was interpreting TIME$ as numeric "TIME", so we now check that after TIME there is no "$" symbol.
dmsc · Sep 26, 2020 · 1c62f50 · 1c62f50
1 parent d29c247
commit 1c62f50
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/peg/basic-base.peg b/peg/basic-base.peg
@@ -472,7 +472,7 @@ UnitExpr         = ConstNum
                  | RAND   r:ParNumExpr                  { $$ = ex_bin(0,r,TOK_RAND); }
                  | TRUNC  r:ParNumExpr                  { $$ = ex_bin(0,r,TOK_TRUNC); }
                  | UINSTR r:ParInstrExpr                { $$ = ex_bin(0,r,TOK_UINSTR); }
-                 | TIME                                 { $$ = ex_bin(0,0,TOK_TIME); }
+                 | TIME   !'$'                          { $$ = ex_bin(0,0,TOK_TIME); }
                  | ERR                                  { $$ = ex_bin(0,0,TOK_ERR); }
                  | ERL                                  { $$ = ex_bin(0,0,TOK_ERL); }
                  | AssignVarNum