summaryrefslogtreecommitdiff
path: root/class.c
diff options
context:
space:
mode:
Diffstat (limited to 'class.c')
-rw-r--r--class.c15
1 files changed, 14 insertions, 1 deletions
diff --git a/class.c b/class.c
index 8a8e9c1f40..7cfe05b236 100644
--- a/class.c
+++ b/class.c
@@ -190,7 +190,20 @@ VALUE
rb_make_metaclass(VALUE obj, VALUE super)
{
if (BUILTIN_TYPE(obj) == T_CLASS && FL_TEST(obj, FL_SINGLETON)) {
- return RBASIC(obj)->klass = rb_cClass;
+ VALUE metaclass;
+ if (RBASIC(obj)->klass == obj) { /* for meta^(n)-class of Class */
+ metaclass = rb_class_boot(obj);
+ RBASIC(metaclass)->klass = metaclass;
+ }
+ else {
+ metaclass = rb_class_boot(super);
+ RBASIC(metaclass)->klass = rb_singleton_class(RBASIC(obj)->klass);
+ }
+ FL_SET(metaclass, FL_SINGLETON);
+ rb_singleton_class_attached(metaclass, obj);
+ RBASIC(obj)->klass = metaclass;
+ RCLASS(metaclass)->ptr->super = rb_singleton_class(RCLASS(obj)->ptr->super);
+ return metaclass;
}
else {
VALUE metasuper;