/*
 * call-seq:
 *   class.singleton_class => Class
 *
 * Return the object's singleton class.  Creats a new singleton class
 * for the object if it does not have one.  See RCR#231.
 */
VALUE singleton_class(VALUE self)
{
  return rb_singleton_class(self);
}