parser: fix bug where strings were always uppercased instead of symbols.

2026-05-17 20:04:20 +03:00
parent 68b8916d63
commit 1ca4ac2b79
2 changed files with 3 additions and 3 deletions
@@ -23,8 +23,8 @@ prog:
 expr:
  | i = INT { LInt i }
  | d = DOUBLE { LDouble d}
-  | s = SYM { LSymbol s }
-  | s = STR { LString (String.uppercase_ascii s) }
+  | s = SYM { LSymbol (String.uppercase_ascii s) }
+  | s = STR { LString s}
  | LPAREN; l = lisp_list_rest { l }
  | QUOTE; e = expr { LCons (LSymbol "quote", LCons (e, LNil)) }
 ;