Lam_compat (melange.Lam

type boxed_integer = Melange_compiler_libs.Lambda.boxed_integer =

;

type integer_comparison = Melange_compiler_libs.Lambda.integer_comparison =

;

type float_comparison = Melange_compiler_libs.Lambda.float_comparison =

;

type compile_time_constant =

;

type let_kind = Melange_compiler_libs.Lambda.let_kind =

;

type meth_kind = Melange_compiler_libs.Lambda.meth_kind =

;

type field_dbg_info = Melange_compiler_libs.Lambda.field_dbg_info =

| Fld_na(string)
| Fld_record of {
1. name: string,
2. mutable_flag: Asttypes.mutable_flag,
}
| Fld_module of {
1. name: string,
}
| Fld_record_inline of {
1. name: string,
}
| Fld_record_extension of {
1. name: string,
}
| Fld_tuple
| Fld_poly_var_tag
| Fld_poly_var_content
| Fld_extension
| Fld_variant
| Fld_cons
| Fld_array

;

let str_of_field_info: field_dbg_info => option(string);

type set_field_dbg_info = Melange_compiler_libs.Lambda.set_field_dbg_info =

;

let cmp_int32: integer_comparison => int32 => int32 => bool;

let cmp_int64: integer_comparison => int64 => int64 => bool;

let cmp_nativeint: integer_comparison => nativeint => nativeint => bool;

let cmp_float: float_comparison => float => float => bool;

let cmp_int: integer_comparison => int => int => bool;

let eq_comparison: integer_comparison => integer_comparison => bool;

let eq_float_comparison: float_comparison => float_comparison => bool;

let eq_boxed_integer: boxed_integer => boxed_integer => bool;

let eq_compile_time_constant: 
  compile_time_constant =>
  compile_time_constant =>
  bool;