diff options
Diffstat (limited to 'libguile/srfi-4.i.c')
-rw-r--r-- | libguile/srfi-4.i.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/srfi-4.i.c b/libguile/srfi-4.i.c index 714f4d644..e1c3598c4 100644 --- a/libguile/srfi-4.i.c +++ b/libguile/srfi-4.i.c @@ -148,8 +148,8 @@ CTYPE * F(scm_array_handle_,TAG,_writable_elements) (scm_t_array_handle *h) { SCM vec = h->array; - if (SCM_ARRAYP (vec)) - vec = SCM_ARRAY_V (vec); + if (SCM_I_ARRAYP (vec)) + vec = SCM_I_ARRAY_V (vec); uvec_assert (TYPE, vec); if (TYPE == SCM_UVEC_C32 || TYPE == SCM_UVEC_C64) return ((CTYPE *)SCM_UVEC_BASE (vec)) + 2*h->base; |