mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* goops.c (TEST_CHANGE_CLASS): Use scm_change_object_class instead

Browse source 
of calling the procedure change-object-class.
This commit is contained in:
Mikael Djurfeldt 2003-01-10 12:58:40 +00:00
parent da9015263e
commit 38d8927ca8
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2003-01-10 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* goops.c (TEST_CHANGE_CLASS): Use scm_change_object_class instead
of calling the procedure change-object-class.
2003-01-09 Mikael Djurfeldt <djurfeldt@nada.kth.se> 2003-01-09 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* ramap.c (scm_ramapc): Typo in error message. * ramap.c (scm_ramapc): Typo in error message.

7
libguile/goops.c
View file

@ -119,8 +119,7 @@
{ \ { \
class = SCM_CLASS_OF (obj); \ class = SCM_CLASS_OF (obj); \
if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F) \ if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F) \
CALL_GF3 ("change-object-class", \ scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj)); \
obj, class, SCM_OBJ_CLASS_REDEF (obj)); \
} }
#define NXT_MTHD_METHODS(m) (SCM_VELTS (m)[1]) #define NXT_MTHD_METHODS(m) (SCM_VELTS (m)[1])
@ -1560,6 +1559,10 @@ purgatory (void *args)
SCM_PACK ((scm_t_bits) args)); SCM_PACK ((scm_t_bits) args));
} }
/* This function calls the generic function change-class for all
* instances which aren't currently undergoing class change.
*/
void void
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)
{ {