diff options
Diffstat (limited to 'libguile/goops.c')
-rw-r--r-- | libguile/goops.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index 8d8b0a3fa..1ce1a490b 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -134,6 +134,7 @@ static SCM class_uvec; static SCM class_array; static SCM class_thread; static SCM class_bitvector; +static SCM class_finalizer; static SCM vtable_class_map = SCM_BOOL_F; @@ -257,6 +258,8 @@ SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0, return class_array; case scm_tc7_bitvector: return class_bitvector; + case scm_tc7_finalizer: + return class_finalizer; case scm_tc7_thread: return class_thread; case scm_tc7_string: @@ -940,6 +943,7 @@ SCM_DEFINE (scm_sys_goops_early_init, "%goops-early-init", 0, 0, 0, class_array = scm_variable_ref (scm_c_lookup ("<array>")); class_thread = scm_variable_ref (scm_c_lookup ("<thread>")); class_bitvector = scm_variable_ref (scm_c_lookup ("<bitvector>")); + class_finalizer = scm_variable_ref (scm_c_lookup ("<finalizer>")); class_number = scm_variable_ref (scm_c_lookup ("<number>")); class_complex = scm_variable_ref (scm_c_lookup ("<complex>")); class_real = scm_variable_ref (scm_c_lookup ("<real>")); |