summaryrefslogtreecommitdiff
path: root/libguile/array-handle.c
diff options
context:
space:
mode:
authorDaniel Llorens <daniel.llorens@bluewin.ch>2013-04-29 15:37:52 +0200
committerAndy Wingo <wingo@pobox.com>2014-01-27 21:48:44 +0100
commitd0b47b494682ebe36f8a93dbc96afe6cae2c5e13 (patch)
tree350001a3bb34238ee0a5ffe4872aebb8fe53a640 /libguile/array-handle.c
parent99c0a58a2fa392ac14017da8874fbdbfd2f05900 (diff)
downloadguile-d0b47b494682ebe36f8a93dbc96afe6cae2c5e13.tar.gz
Rename scm_t_array_handle.array to .root
Globally rename this field (after shared-array-root), since it's not an array.
Diffstat (limited to 'libguile/array-handle.c')
-rw-r--r--libguile/array-handle.c4
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;
}