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/print.c | |
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/print.c')
-rw-r--r-- | libguile/print.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/print.c b/libguile/print.c index e0a6daa52..f144a6491 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -653,6 +653,9 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) case scm_tc7_bytevector: scm_i_print_bytevector (exp, port, pstate); break; + case scm_tc7_bitvector: + scm_i_print_bitvector (exp, port, pstate); + break; case scm_tc7_wvect: ENTER_NESTED_DATA (pstate, exp, circref); if (SCM_IS_WHVEC (exp)) |