diff options
Diffstat (limited to 'libguile/goops.c')
-rw-r--r-- | libguile/goops.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index e951309d0..2f9cf30b9 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -169,6 +169,7 @@ static SCM class_vm_cont; static SCM class_bytevector; static SCM class_uvec; static SCM class_array; +static SCM class_bitvector; static SCM vtable_class_map = SCM_BOOL_F; static scm_i_pthread_mutex_t vtable_class_map_lock = SCM_I_PTHREAD_MUTEX_INITIALIZER; @@ -291,6 +292,8 @@ SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0, return class_uvec; case scm_tc7_array: return class_array; + case scm_tc7_bitvector: + return class_bitvector; case scm_tc7_string: return scm_class_string; case scm_tc7_number: @@ -2528,6 +2531,8 @@ create_standard_classes (void) scm_class_class, class_bytevector, SCM_EOL); make_stdcls (&class_array, "<array>", scm_class_class, scm_class_top, SCM_EOL); + make_stdcls (&class_bitvector, "<bitvector>", + scm_class_class, scm_class_top, SCM_EOL); make_stdcls (&scm_class_number, "<number>", scm_class_class, scm_class_top, SCM_EOL); make_stdcls (&scm_class_complex, "<complex>", |