(***********************************************************************) (* *) (* OCaml *) (* *) (* Gabriel Scherer, projet Gallium, INRIA Rocquencourt *) (* *) (* Copyright 2012 Institut National de Recherche en Informatique et *) (* en Automatique. All rights reserved. This file is distributed *) (* under the terms of the Q Public License version 1.0. *) (* *) (***********************************************************************) (* class expression are compiled to recursive bindings *) class test = object method x = 1 end