Module Translcore

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
type error =
| Free_super_var
| Unreachable_reached
exception Error of Location.t * error
val report_error : Format.formatter -> error -> unit
val transl_object : (scopes:Debuginfo.Scoped_location.scopes -> Ident.t -> string list -> Typedtree.class_expr -> Lambda.lambda) ref