Translcore (melange.Melange_compiler

val pure_module : Typedtree.module_expr -> Lambda.let_kind

val wrap_single_field_record : 
  (Location.t -> string -> Lambda.lambda -> Lambda.lambda) Stdlib.ref

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

type error =

| Free_super_var
| Unreachable_reached

exception Error of Location.t * error

val report_error : Stdlib.Format.formatter -> error -> unit

val transl_module : 
  (scopes:Debuginfo.Scoped_location.scopes ->
    Typedtree.module_coercion ->
    Path.t option ->
    Typedtree.module_expr ->
    Lambda.lambda)
    Stdlib.ref

val transl_object : 
  (scopes:Debuginfo.Scoped_location.scopes ->
    Ident.t ->
    string list ->
    Typedtree.class_expr ->
    Lambda.lambda)
    Stdlib.ref