iitalics
/
spice
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

prefix the debug logs

This commit is contained in:
tali 2023-12-13 17:16:38 -05:00
parent d7bb317e2b
commit c61c1d4e25
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bin/main.ml
View File

@ -6,9 +6,9 @@ let () =
try try
let ast = parse "fun f() 3 val x = f() + 1" in let ast = parse "fun f() 3 val x = f() + 1" in
Logs.debug (fun m -> m "%a" Ast.pp_modl ast); Logs.debug (fun m -> m "[AST] %a" Ast.pp_modl ast);
let prog = compile ast in let prog = compile ast in
Logs.debug (fun m -> Code.dump (m "%s") prog.main); Logs.debug (fun m -> Code.dump (m "[BC] %s") prog.main);
let modl = run prog in let modl = run prog in
Logs.debug (fun m -> m "%a" Value.pp modl) Logs.debug (fun m -> m "[RET] %a" Value.pp modl)
with Error msg -> Logs.err (fun m -> m "%s" msg) with Error msg -> Logs.err (fun m -> m "%s" msg)