summaryrefslogtreecommitdiff
path: root/libguile/goops.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-01-10 00:55:44 +0100
committerAndy Wingo <wingo@pobox.com>2015-01-23 16:16:01 +0100
commit623a259935be05b65fbc97fec1a1c925a5d91c11 (patch)
tree8a2619a1c07b8710106ae8aa1c189e23a1c46a14 /libguile/goops.c
parent3292354a4d09c3266e45ae7cfcf7c571e2b2a766 (diff)
downloadguile-623a259935be05b65fbc97fec1a1c925a5d91c11.tar.gz
Remove TEST_CHANGE_CLASS
* libguile/goops.c (TEST_CHANGE_CLASS): Remove unused macro and comment.
Diffstat (limited to 'libguile/goops.c')
-rw-r--r--libguile/goops.c30
1 files changed, 0 insertions, 30 deletions
diff --git a/libguile/goops.c b/libguile/goops.c
index 6e1fcebd8..8a8f8acc0 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -91,41 +91,11 @@ static SCM var_slot_bound_p = SCM_BOOL_F;
static SCM var_slot_exists_p = SCM_BOOL_F;
-SCM_SYMBOL (sym_slot_unbound, "slot-unbound");
-SCM_SYMBOL (sym_slot_missing, "slot-missing");
SCM_SYMBOL (sym_change_class, "change-class");
SCM_VARIABLE (scm_var_make_extended_generic, "make-extended-generic");
-/* Class redefinition protocol:
-
- A class is represented by a heap header h1 which points to a
- malloc:ed memory block m1.
-
- When a new version of a class is created, a new header h2 and
- memory block m2 are allocated. The headers h1 and h2 then switch
- pointers so that h1 refers to m2 and h2 to m1. In this way, names
- bound to h1 will point to the new class at the same time as h2 will
- be a handle which the GC will use to free m1.
-
- The `redefined' slot of m1 will be set to point to h1. An old
- instance will have its class pointer (the CAR of the heap header)
- pointing to m1. The non-immediate `redefined'-slot in m1 indicates
- the class modification and the new class pointer can be found via
- h1.
-*/
-
-#define TEST_CHANGE_CLASS(obj, class) \
- { \
- class = SCM_CLASS_OF (obj); \
- if (scm_is_true (SCM_OBJ_CLASS_REDEF (obj))) \
- { \
- scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));\
- class = SCM_CLASS_OF (obj); \
- } \
- }
-
#define SCM_GOOPS_UNBOUND SCM_UNBOUND
#define SCM_GOOPS_UNBOUNDP(x) (scm_is_eq (x, SCM_GOOPS_UNBOUND))