diff options
author | Andy Wingo <wingo@pobox.com> | 2012-01-09 17:52:46 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-01-09 17:56:21 +0100 |
commit | ff1feca9bd6d23b248f4e3eb768a08f7c3aabc1d (patch) | |
tree | f3e817ce8858172c04e793187f8412bad283b368 /libguile/bitvectors.h | |
parent | b2637c985ce93bc15e0378b8120d04a98ebdd212 (diff) | |
download | guile-ff1feca9bd6d23b248f4e3eb768a08f7c3aabc1d.tar.gz |
allocate a tc7 to bitvectors
* libguile/tags.h (scm_tc7_bitvector): Allocate a tc7 to bitvectors.
* libguile/print.c (iprin1):
* libguile/goops.c:
* libguile/evalext.c (scm_self_evaluating_p):
* libguile/eq.c (scm_equal_p): Add cases for bitvectors.
* libguile/bitvectors.h: Declare internal print and equal? helpers.
* libguile/bitvectors.c: Use a tc7 instead of a smob type.
Diffstat (limited to 'libguile/bitvectors.h')
-rw-r--r-- | libguile/bitvectors.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/bitvectors.h b/libguile/bitvectors.h index b6cf38357..6b25327a8 100644 --- a/libguile/bitvectors.h +++ b/libguile/bitvectors.h @@ -70,6 +70,8 @@ SCM_API scm_t_uint32 *scm_bitvector_writable_elements (SCM vec, size_t *lenp, ssize_t *incp); +SCM_INTERNAL int scm_i_print_bitvector (SCM vec, SCM port, scm_print_state *pstate); +SCM_INTERNAL SCM scm_i_bitvector_equal_p (SCM vec1, SCM vec2); SCM_INTERNAL void scm_init_bitvectors (void); #endif /* SCM_BITVECTORS_H */ |