|
let () =
|
|
try
|
|
let modl = Spice.parse "fun main(x) { val y = x * 2 val z = if(y > x) y else 1 }" in
|
|
Format.fprintf Format.std_formatter "%a\n" Spice.Syn.pp_modl modl
|
|
with Spice.Error.Error err ->
|
|
Format.fprintf Format.err_formatter "error: %a\n" Spice.Error.pp err
|