/*
 * call-seq:
 *   class.singleton? => true or false
 *
 * Return true if this object is a singleton (that is, it has the
 * FL_SINGLETON flag set).
 */
VALUE is_singleton(VALUE self)
{
  return FL_TEST(self, FL_SINGLETON) ? Qtrue : Qfalse;
}