diff options
author | Andy Wingo <wingo@pobox.com> | 2015-01-10 00:55:44 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:16:01 +0100 |
commit | 623a259935be05b65fbc97fec1a1c925a5d91c11 (patch) | |
tree | 8a2619a1c07b8710106ae8aa1c189e23a1c46a14 /libguile/goops.c | |
parent | 3292354a4d09c3266e45ae7cfcf7c571e2b2a766 (diff) | |
download | guile-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.c | 30 |
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)) |