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
@@ -52,7 +52,7 @@ let rec do_apply state arg_count =
  | _ -> failwith "Cannot apply non-closure object"

 and interpret state =
-  trace state;
+  (*trace state; (* For debug use *)*)
  let i = state.i in
  state.i <- i + 1;
  (match state.instrs.(i) with