diff options
Diffstat (limited to 'libguile/array-handle.c')
-rw-r--r-- | libguile/array-handle.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/array-handle.c b/libguile/array-handle.c index e914456a0..76502e70a 100644 --- a/libguile/array-handle.c +++ b/libguile/array-handle.c @@ -167,7 +167,7 @@ const SCM * scm_array_handle_elements (scm_t_array_handle *h) { if (h->element_type != SCM_ARRAY_ELEMENT_TYPE_SCM) - scm_wrong_type_arg_msg (NULL, 0, h->array, "non-uniform array"); + scm_wrong_type_arg_msg (NULL, 0, h->root, "non-uniform array"); return ((const SCM*)h->elements) + h->base; } @@ -175,7 +175,7 @@ SCM * scm_array_handle_writable_elements (scm_t_array_handle *h) { if (h->element_type != SCM_ARRAY_ELEMENT_TYPE_SCM) - scm_wrong_type_arg_msg (NULL, 0, h->array, "non-uniform array"); + scm_wrong_type_arg_msg (NULL, 0, h->root, "non-uniform array"); return ((SCM*)h->elements) + h->base; } |