20 lines
567 B
OCaml
20 lines
567 B
OCaml
open Trace
|
|
open Ast_sugar
|
|
open Desugaring
|
|
open Main_errors
|
|
|
|
let compile (program : program) : (Ast_core.program , _) result =
|
|
trace desugaring_tracer @@ compile_program program
|
|
|
|
let compile_expression (e : expression) : (Ast_core.expression , _) result =
|
|
trace desugaring_tracer @@ compile_expression e
|
|
|
|
let list_declarations (program : program) : string list =
|
|
List.fold_left
|
|
(fun prev el ->
|
|
let open Location in
|
|
match el.wrap_content with
|
|
| Declaration_constant (var,_,_,_) -> (Var.to_name var)::prev
|
|
| _ -> prev)
|
|
[] program
|