src/closTrans.mli

   1 type stmt =
   2     Plain of Ast.stmt
   3   | DefineClass  of ident * Ast.name * ident list
   4   | DefineMethod of ident * (ident * ident) * ident list * Ast.expr
   5 and attr = string Node.t
   6 and ident = string Node.t
   7
   8 type program = stmt list
   9
  10 val trans : program -> Ast.program
  11 val to_string : stmt -> string