* goops.c (TEST_CHANGE_CLASS): Use scm_change_object_class instead

of calling the procedure change-object-class.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 2390d86..37253f3 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -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>
 
        * ramap.c (scm_ramapc): Typo in error message.

diff --git a/libguile/goops.c b/libguile/goops.c
index 2a644ac..4baf645 100644 (file)
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -119,8 +119,7 @@
        {                                                                     \
          class = SCM_CLASS_OF (obj);                                         \
           if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F)                               \
-           CALL_GF3 ("change-object-class",                                  \
-                     obj, class, SCM_OBJ_CLASS_REDEF (obj));                 \
+           scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));  \
        }
 
 #define NXT_MTHD_METHODS(m)    (SCM_VELTS (m)[1])
@@ -1560,6 +1559,10 @@ purgatory (void *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
 scm_change_object_class (SCM obj, SCM old_class SCM_UNUSED, SCM new_class)
 {