summaryrefslogtreecommitdiff
path: root/libguile/array-handle.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/array-handle.h')
-rw-r--r--libguile/array-handle.h6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/array-handle.h b/libguile/array-handle.h
index 94f368977..ac54825d6 100644
--- a/libguile/array-handle.h
+++ b/libguile/array-handle.h
@@ -92,7 +92,7 @@ SCM_INTERNAL SCM scm_i_array_element_types[];
typedef struct scm_t_array_handle {
- SCM array;
+ SCM root;
scm_t_array_implementation *impl;
/* `Base' is an offset into elements or writable_elements, corresponding to
the first element in the array. It would be nicer just to adjust the
@@ -135,7 +135,7 @@ scm_array_handle_ref (scm_t_array_handle *h, ssize_t p)
/* catch overflow */
scm_out_of_range (NULL, scm_from_ssize_t (p));
/* perhaps should catch overflow here too */
- return h->impl->vref (h->array, h->base + p);
+ return h->impl->vref (h->root, h->base + p);
}
SCM_INLINE_IMPLEMENTATION void
@@ -145,7 +145,7 @@ scm_array_handle_set (scm_t_array_handle *h, ssize_t p, SCM v)
/* catch overflow */
scm_out_of_range (NULL, scm_from_ssize_t (p));
/* perhaps should catch overflow here too */
- h->impl->vset (h->array, h->base + p, v);
+ h->impl->vset (h->root, h->base + p, v);
}
#endif