Translcore
val pure_module : Typedtree.module_expr -> Lambda.let_kind
val transl_exp : scopes:Debuginfo.Scoped_location.scopes -> Typedtree.expression -> Lambda.lambda
val transl_apply : scopes:Debuginfo.Scoped_location.scopes -> ?tailcall:Lambda.tailcall_attribute -> ?inlined:Lambda.inline_attribute -> ?specialised:Lambda.specialise_attribute ->
Lambda.lambda -> (Asttypes.arg_label * Typedtree.expression option) list -> Lambda.scoped_location -> Lambda.lambda
val transl_let : scopes:Debuginfo.Scoped_location.scopes -> ?in_structure:bool -> Asttypes.rec_flag -> Typedtree.value_binding list -> Lambda.lambda -> Lambda.lambda
val transl_extension_constructor : scopes:Debuginfo.Scoped_location.scopes -> Env.t -> Path.t option -> Typedtree.extension_constructor -> Lambda.lambda
val transl_scoped_exp : scopes:Debuginfo.Scoped_location.scopes -> Typedtree.expression -> Lambda.lambda
exception Error of Location.t * error
val report_error : Format.formatter -> error -> unit
val transl_module : (scopes:Debuginfo.Scoped_location.scopes -> Typedtree.module_coercion -> Path.t option -> Typedtree.module_expr -> Lambda.lambda) ref
val transl_object : (scopes:Debuginfo.Scoped_location.scopes -> Ident.t -> string list -> Typedtree.class_expr -> Lambda.lambda) ref