119 |
{ \ |
{ \ |
120 |
class = SCM_CLASS_OF (obj); \ |
class = SCM_CLASS_OF (obj); \ |
121 |
if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F) \ |
if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F) \ |
122 |
CALL_GF3 ("change-object-class", \ |
scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj)); \ |
|
obj, class, SCM_OBJ_CLASS_REDEF (obj)); \ |
|
123 |
} |
} |
124 |
|
|
125 |
#define NXT_MTHD_METHODS(m) (SCM_VELTS (m)[1]) |
#define NXT_MTHD_METHODS(m) (SCM_VELTS (m)[1]) |
1559 |
SCM_PACK ((scm_t_bits) args)); |
SCM_PACK ((scm_t_bits) args)); |
1560 |
} |
} |
1561 |
|
|
1562 |
|
/* This function calls the generic function change-class for all |
1563 |
|
* instances which aren't currently undergoing class change. |
1564 |
|
*/ |
1565 |
|
|
1566 |
void |
void |
1567 |
scm_change_object_class (SCM obj, SCM old_class SCM_UNUSED, SCM new_class) |
scm_change_object_class (SCM obj, SCM old_class SCM_UNUSED, SCM new_class) |
1568 |
{ |
{ |