mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +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>

5
libguile/goops.c
View file

@ -95,7 +95,10 @@
{ \
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)); \
{ \
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])