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/evalext.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/evalext.c')
-rw-r--r-- | libguile/evalext.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/evalext.c b/libguile/evalext.c index 2dfaa1363..c1d46b56d 100644 --- a/libguile/evalext.c +++ b/libguile/evalext.c @@ -88,6 +88,7 @@ SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0, case scm_tc7_program: case scm_tc7_bytevector: case scm_tc7_array: + case scm_tc7_bitvector: case scm_tcs_struct: return SCM_BOOL_T; default: |