summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/eq.c1
-rw-r--r--libguile/evalext.c1
-rw-r--r--libguile/gc-card.c3
-rw-r--r--libguile/gc-mark.c1
-rw-r--r--libguile/objects.c1
-rw-r--r--libguile/print.c1
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: