From 1c62f5073ac0fa5c6ff255ffc9a9f4f601fb47f2 Mon Sep 17 00:00:00 2001
From: Daniel Serpell <daniel.serpell@gmail.com>
Date: Sat, 26 Sep 2020 00:17:36 -0300
Subject: [PATCH] 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.
---
 peg/basic-base.peg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/peg/basic-base.peg b/peg/basic-base.peg
index b45e71e..d4e3ae9 100644
--- 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