* libguile/generalized-arrays.c (scm_is_array, scm_is_typed_array): In
preparation for removing the registry of array implementations, remove
a couple uss of scm_i_array_implementation_for_obj.
int
scm_is_array (SCM obj)
{
- return scm_i_array_implementation_for_obj (obj) ? 1 : 0;
+ if (!SCM_HEAP_OBJECT_P (obj))
+ return 0;
+
+ switch (SCM_TYP7 (obj))
+ {
+ case scm_tc7_string:
+ case scm_tc7_vector:
+ case scm_tc7_bitvector:
+ case scm_tc7_bytevector:
+ case scm_tc7_array:
+ return 1;
+ default:
+ return 0;
+ }
}
SCM_DEFINE (scm_array_p_2, "array?", 1, 0, 0,
scm_is_typed_array (SCM obj, SCM type)
{
int ret = 0;
- if (scm_i_array_implementation_for_obj (obj))
+ if (scm_is_array (obj))
{
scm_t_array_handle h;