|
let () =
|
|
Logs.set_reporter (Logs.format_reporter ());
|
|
Logs.set_level (Some Logs.Debug);
|
|
|
|
try
|
|
let syn = Spice.parse "val x = 3 val y = x + 1" in
|
|
let ir = Spice.compile syn in
|
|
Fmt.pr "%a\n" Spice.Ir.pp_entrypoint ir
|
|
with Spice.Error msg -> Logs.err (fun m -> m "%s" msg)
|