void sl_pre_init_class(sl_vm_t* vm) { sl_class_t* obj = (sl_class_t*)allocate_class(vm); vm->lib.Class = sl_make_ptr((sl_object_t*)obj); obj->extra->allocator = allocate_class; obj->base.klass = vm->lib.Class; }
void c_new_class(int which, int has_values) { array_t *cl; cl = allocate_class(¤t_prog->classes[which], has_values); push_refed_class(cl); }