remove comented function

This commit is contained in:
Lesenechal Remi 2019-12-06 18:38:40 +01:00
parent 255b9a6e00
commit 85cffdfc52
2 changed files with 0 additions and 9 deletions

View File

@ -48,7 +48,6 @@ val translate_main : AST.lambda -> Location.t ->( anon_function * ( type_value *
(* From an expression [expr], build the expression [fun () -> expr] *)
val translate_entry : AST.program -> string -> ( anon_function * ( type_value * type_value )) result
val functionalize : AST.annotated_expression -> AST.lambda * AST.type_value
*)
val extract_constructor : value -> ( string * AST.type_value ) Append_tree.t' -> (string * value * AST.type_value) result
val extract_tuple : value -> AST.type_value Append_tree.t' -> (value * AST.type_value) list result

View File

@ -120,14 +120,6 @@ module Free_variables = struct
end
(*
Converts `expr` in `fun () -> expr`.
let functionalize (body : expression) : expression =
let content = E_closure { binder = Var.fresh () ; body } in
let type_value = t_function t_unit body.type_value in
{ content ; type_value }
*)
let get_entry (lst : program) (name : string) : (expression * int) result =
let%bind entry_expression =
trace_option (Errors.missing_entry_point name) @@