tricu

commit 2a63942cdb6a51190cddf54b9f20e6c35d6548db
parent 8fb8ab274179bc9b4c05dae7760ea4f5d4eada1b
Author: James Eversole <james@eversole.co>
Date:   Thu, 19 Dec 2024 21:13:57 -0600

Reserve __result keyword

Diffstat:
M
src/Lexer.hs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Lexer.hs b/src/Lexer.hs
@@ -25,8 +25,8 @@ keywordT = string "t" *> notFollowedBy alphaNumChar *> pure LKeywordT
 identifier :: Lexer LToken
 identifier = do
   name <- some (letterChar <|> char '_' <|> char '-')
-  if name == "t"
-    then fail "Keyword 't' cannot be used as an identifier"
+  if (name == "t" || name == "__result")
+    then fail "Keywords (`t`, `__result`) cannot be used as an identifier"
     else return (LIdentifier name)
 
 integerLiteral :: Lexer LToken