From 38d8927ca8333e80e3aa1c617c04735bf1be290d Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Fri, 10 Jan 2003 12:58:40 +0000 Subject: [PATCH] * goops.c (TEST_CHANGE_CLASS): Use scm_change_object_class instead of calling the procedure change-object-class. --- libguile/ChangeLog | 5 +++++ libguile/goops.c | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 2390d8654..37253f3de 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2003-01-10 Mikael Djurfeldt + + * goops.c (TEST_CHANGE_CLASS): Use scm_change_object_class instead + of calling the procedure change-object-class. + 2003-01-09 Mikael Djurfeldt * ramap.c (scm_ramapc): Typo in error message. diff --git a/libguile/goops.c b/libguile/goops.c index 2a644ac15..4baf645a2 100644 --- 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) { -- 2.20.1