Translclass (melange.Melange_compiler

val transl_class : 
  scopes:Debuginfo.Scoped_location.scopes ->
  Ident.t list ->
  Ident.t ->
  string list ->
  Typedtree.class_expr ->
  Asttypes.virtual_flag ->
  Lambda.lambda * Value_rec_types.recursive_binding_kind

type error =

| Tags of string * string

exception Error of Location.t * error

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