@@ -120,13 +120,18 @@ dfsch_object_t* dfsch_make_class(dfsch_object_t* superclass, klass->standard_type.slots = make_slots(slots); klass->standard_type.flags = DFSCH_TYPEF_USER_EXTENSIBLE; if (superclass){ - klass->standard_type.superclass = - (dfsch_type_t*)DFSCH_ASSERT_INSTANCE(superclass, + class_t* super = DFSCH_ASSERT_INSTANCE(superclass, DFSCH_CLASS_TYPE); + klass->standard_type.superclass = (dfsch_type_t*)super; + klass->standard_type.size = adjust_sizes(klass->standard_type.slots, klass->standard_type.superclass->size); + + klass->initvalues = super->initvalues; + klass->initargs = super->initargs; + } else { klass->standard_type.superclass = NULL; klass->standard_type.size = adjust_sizes(klass->standard_type.slots, src/object.c 987d53883047444d9556f37e6dc62896e2dc5ed8 Ales Hakl ales@hakl.net http://github.com/adh/dfsch/commit/555222907ac68642ec19483e54023b1a45437fe7 555222907ac68642ec19483e54023b1a45437fe7 2009-11-14T17:58:15-08:00 2009-11-14T17:58:15-08:00 Correctly inherit default-initialize-instance behavior b7dac1a52e50a6114482a250a1dcbc3edf478fec Ales Hakl ales@hakl.net