summaryrefslogtreecommitdiff
path: root/libguile/bitvectors.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-12-08 22:53:21 +0100
committerAndy Wingo <wingo@pobox.com>2009-12-08 23:13:21 +0100
commit735bcfe579606eddb1700462e56918d48affe36e (patch)
tree03f998c72d39602b6ea12144d58237e051083b49 /libguile/bitvectors.c
parent75a029aa2553a24e4804722521f1e5db9690fbe3 (diff)
downloadguile-735bcfe579606eddb1700462e56918d48affe36e.tar.gz
add SCM_SMOB_TYPE_BITS and SCM_SMOB_TYPE_MASK
* libguile/smob.h (SCM_SMOB_TYPE_BITS, SCM_SMOB_TYPE_MASK): New macros, for when you want to identify a SMOB by type and mask. * libguile/arrays.c: * libguile/bitvectors.c: * libguile/srfi-4.c: Use the new macros.
Diffstat (limited to 'libguile/bitvectors.c')
-rw-r--r--libguile/bitvectors.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c
index c3b6f3e4e..3e23adf8e 100644
--- a/libguile/bitvectors.c
+++ b/libguile/bitvectors.c
@@ -878,7 +878,8 @@ bitvector_get_handle (SCM bv, scm_t_array_handle *h)
h->elements = h->writable_elements = BITVECTOR_BITS (bv);
}
-SCM_ARRAY_IMPLEMENTATION (scm_tc16_bitvector, 0xffff,
+SCM_ARRAY_IMPLEMENTATION (SCM_SMOB_TYPE_BITS (scm_tc16_bitvector),
+ SCM_SMOB_TYPE_MASK,
bitvector_handle_ref, bitvector_handle_set,
bitvector_get_handle);
SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_BIT, scm_make_bitvector);