Translclass (melange.Melange_compiler

let transl_class: 
  scopes:Debuginfo.Scoped_location.scopes =>
  list(Ident.t) =>
  Ident.t =>
  list(string) =>
  Typedtree.class_expr =>
  Asttypes.virtual_flag =>
  (Lambda.lambda, Value_rec_types.recursive_binding_kind);

type error =

| Tags(string, string)

;

exception Error(Location.t, error);

let report_error: Stdlib.Format.formatter => error => unit;