diff options
-rw-r--r-- | libguile/eq.c | 1 | ||||
-rw-r--r-- | libguile/evalext.c | 1 | ||||
-rw-r--r-- | libguile/gc-card.c | 3 | ||||
-rw-r--r-- | libguile/gc-mark.c | 1 | ||||
-rw-r--r-- | libguile/objects.c | 1 | ||||
-rw-r--r-- | libguile/print.c | 1 |
6 files changed, 1 insertions, 7 deletions
diff --git a/libguile/eq.c b/libguile/eq.c index cd5f0d180..bde9a579a 100644 --- a/libguile/eq.c +++ b/libguile/eq.c @@ -211,7 +211,6 @@ SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "equal?", scm_tc7_rpsubr, #if SCM_SIZEOF_LONG_LONG != 0 case scm_tc7_llvect: #endif - case scm_tc7_byvect: if (scm_tc16_array && scm_smobs[SCM_TC2SMOBNUM (scm_tc16_array)].equalp) return scm_array_equal_p (x, y); #endif diff --git a/libguile/evalext.c b/libguile/evalext.c index 6a2a1b14b..0406e8678 100644 --- a/libguile/evalext.c +++ b/libguile/evalext.c @@ -102,7 +102,6 @@ SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0, case scm_tc7_wvect: #if SCM_HAVE_ARRAYS case scm_tc7_bvect: - case scm_tc7_byvect: case scm_tc7_svect: case scm_tc7_ivect: case scm_tc7_uvect: diff --git a/libguile/gc-card.c b/libguile/gc-card.c index 3bbd12331..c23e0ba17 100644 --- a/libguile/gc-card.c +++ b/libguile/gc-card.c @@ -39,7 +39,7 @@ #include "libguile/validate.h" #include "libguile/deprecation.h" #include "libguile/gc.h" - +#include "libguile/srfi-4.h" #include "libguile/private-gc.h" @@ -157,7 +157,6 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg) } } break; - case scm_tc7_byvect: case scm_tc7_ivect: case scm_tc7_uvect: case scm_tc7_svect: diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c index e4f838bf4..85e75d6bb 100644 --- a/libguile/gc-mark.c +++ b/libguile/gc-mark.c @@ -250,7 +250,6 @@ scm_gc_mark_dependencies (SCM p) #endif #if SCM_HAVE_ARRAYS case scm_tc7_bvect: - case scm_tc7_byvect: case scm_tc7_ivect: case scm_tc7_uvect: case scm_tc7_fvect: diff --git a/libguile/objects.c b/libguile/objects.c index 6b925f7a9..50011d3fe 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -91,7 +91,6 @@ SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0, case scm_tc7_wvect: #if SCM_HAVE_ARRAYS case scm_tc7_bvect: - case scm_tc7_byvect: case scm_tc7_svect: case scm_tc7_ivect: case scm_tc7_uvect: diff --git a/libguile/print.c b/libguile/print.c index 7cd7307d3..92a3aa051 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -600,7 +600,6 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) break; #if SCM_HAVE_ARRAYS case scm_tc7_bvect: - case scm_tc7_byvect: case scm_tc7_svect: case scm_tc7_ivect: case scm_tc7_uvect: |