haxala1r/olisp
1
0
Fork 0
Code Issues 1 Pull Requests Packages Projects 1 Releases Wiki Activity

repl: print errors encountered during compilation

Browse Source
This commit is contained in:
Emin Arslan
2026-05-17 20:36:21 +03:00
parent df1fad751f
commit 47ffeb4934
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/comp.ml
+8 -7
View File
@@ -1,4 +1,3 @@
let ( let* ) = Result.bind;;
@@ -7,10 +6,12 @@ let ( let* ) = Result.bind;;
let rec interpret_loop () = let rec interpret_loop () =
let l = read_line () in let l = read_line () in
let* vm = Compiler.Emit.compile_src l in let vm = Compiler.Emit.compile_src l in
print_endline "=== PROGRAM DISASSEMBLY"; match vm with
Vm.Types.print_instrs vm.instrs; | Ok vm ->
print_endline "=== PROGRAM OUTPUT"; print_endline "=== PROGRAM DISASSEMBLY";
Vm.interpret vm; Vm.Types.print_instrs vm.instrs;
interpret_loop () print_endline "=== PROGRAM OUTPUT";
Vm.interpret vm; interpret_loop ()
| Error s -> print_endline s
let _ = interpret_loop () let _ = interpret_loop ()