mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

goops.c (TEST_CHANGE_CLASS): Update variable class after class change.

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-04-18 08:19:03 +00:00
parent eff2965e58
commit 0fd7dcd398
2 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/ChangeLog
View file

@ -6,6 +6,9 @@
2003-04-17 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* goops.c (TEST_CHANGE_CLASS): Update variable class after class
change.
* eq.c (scm_eqv_p): Turned into a primitive generic.
2003-04-16 Rob Browning <rlb@defaultvalue.org>

13
libguile/goops.c
View file

@ -91,11 +91,14 @@
#define SCM_OBJ_CLASS_REDEF(x) (SCM_STRUCT_VTABLE_DATA(x)[scm_si_redefined])
*/
#define TEST_CHANGE_CLASS(obj, class) \
{ \
class = SCM_CLASS_OF (obj); \
if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F) \
scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj)); \
#define TEST_CHANGE_CLASS(obj, class) \
{ \
class = SCM_CLASS_OF (obj); \
if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F) \
{ \
scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));\
class = SCM_CLASS_OF (obj); \
} \
}
#define NXT_MTHD_METHODS(m) (SCM_VELTS (m)[1])