repl: print errors encountered during compilation

2026-05-17 20:36:21 +03:00
parent df1fad751f
commit 47ffeb4934
1 changed files with 8 additions and 7 deletions
@@ -1,4 +1,3 @@
-let ( let* ) = Result.bind;;



@@ -7,10 +6,12 @@ let ( let* ) = Result.bind;;

 let rec interpret_loop () =
  let l  = read_line () in
-  let* vm = Compiler.Emit.compile_src l in
-  print_endline "=== PROGRAM DISASSEMBLY";
-  Vm.Types.print_instrs vm.instrs;
-  print_endline "=== PROGRAM OUTPUT";
-  Vm.interpret vm;
-  interpret_loop ()
+  let vm = Compiler.Emit.compile_src l in
+  match vm with
+  | Ok vm ->
+     print_endline "=== PROGRAM DISASSEMBLY";
+     Vm.Types.print_instrs vm.instrs;
+     print_endline "=== PROGRAM OUTPUT";
+     Vm.interpret vm; interpret_loop ()
+  | Error s -> print_endline s
 let _ = interpret_loop ()