val pure_module : Typedtree.module_expr -> Lambda.let_kindval wrap_single_field_record :
(Location.t -> string -> Lambda.lambda -> Lambda.lambda) refval transl_exp :
scopes:Debuginfo.Scoped_location.scopes ->
Typedtree.expression ->
Lambda.lambdaval 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.lambdaval transl_let :
scopes:Debuginfo.Scoped_location.scopes ->
?in_structure:bool ->
Asttypes.rec_flag ->
Typedtree.value_binding list ->
Lambda.lambda ->
Lambda.lambdaval transl_extension_constructor :
scopes:Debuginfo.Scoped_location.scopes ->
Env.t ->
Path.t option ->
Typedtree.extension_constructor ->
Lambda.lambdaval transl_scoped_exp :
scopes:Debuginfo.Scoped_location.scopes ->
Typedtree.expression ->
Lambda.lambdaexception Error of Location.t * errorval report_error : Format.formatter -> error -> unitval transl_module :
(scopes:Debuginfo.Scoped_location.scopes ->
Typedtree.module_coercion ->
Path.t option ->
Typedtree.module_expr ->
Lambda.lambda)
refval transl_object :
(scopes:Debuginfo.Scoped_location.scopes ->
Ident.t ->
string list ->
Typedtree.class_expr ->
Lambda.lambda)
ref