summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-01-09 17:52:46 +0100
committerAndy Wingo <wingo@pobox.com>2012-01-09 17:56:21 +0100
commitff1feca9bd6d23b248f4e3eb768a08f7c3aabc1d (patch)
treef3e817ce8858172c04e793187f8412bad283b368 /libguile/print.c
parentb2637c985ce93bc15e0378b8120d04a98ebdd212 (diff)
downloadguile-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.c3
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))