2019-09-10 17:19:15 +04:00
|
|
|
open Ast_simplified
|
|
|
|
|
open Trace
|
2019-09-11 15:56:39 +04:00
|
|
|
open Tezos_utils
|
2019-09-10 17:19:15 +04:00
|
|
|
|
2019-09-11 15:56:39 +04:00
|
|
|
let compile_function_entry (program : program) entry_point : Compiler.Program.compiled_program result =
|
2019-09-10 17:19:15 +04:00
|
|
|
let%bind typed_program = Typer.type_program program in
|
2019-09-11 15:56:39 +04:00
|
|
|
Of_typed.compile_function_entry typed_program entry_point
|
|
|
|
|
|
|
|
|
|
let compile_expression_entry (program : program) entry_point : Compiler.Program.compiled_program result =
|
|
|
|
|
let%bind typed_program = Typer.type_program program in
|
|
|
|
|
Of_typed.compile_expression_entry typed_program entry_point
|
|
|
|
|
|
|
|
|
|
let compile_expression ae : Michelson.t result =
|
|
|
|
|
let%bind typed = Typer.type_expression Ast_typed.Environment.full_empty ae in
|
|
|
|
|
Of_typed.compile_expression typed
|
