11 lines
308 B
OCaml
11 lines
308 B
OCaml
open Trace
|
|
open Ast_imperative
|
|
open Helpers
|
|
|
|
let decompile (program : program) syntax : (_ , _) result =
|
|
let%bind syntax = syntax_to_variant syntax None in
|
|
specialise_and_print syntax program
|
|
|
|
let decompile_expression (e : expression) syntax : (_ , _) result =
|
|
specialise_and_print_expression syntax e
|