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/tags.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/tags.h')
-rw-r--r-- | libguile/tags.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/tags.h b/libguile/tags.h index 37fcb8063..a3032bfa9 100644 --- a/libguile/tags.h +++ b/libguile/tags.h @@ -425,7 +425,7 @@ typedef union SCM { struct { scm_t_bits n; } n; } SCM; #define scm_tc7_unused_19 69 #define scm_tc7_program 79 #define scm_tc7_array 85 -#define scm_tc7_unused_10 87 +#define scm_tc7_bitvector 87 #define scm_tc7_unused_20 93 #define scm_tc7_unused_11 95 #define scm_tc7_unused_12 101 |