Add "vector" member to scm_t_array_handle

* libguile/array-handle.h (scm_t_array_handle): Add "vector" member.
* libguile/array-handle.c (scm_array_get_handle): Initialize the vector
  member.

1 files changed, 3 insertions, 0 deletions

diff --git a/libguile/array-handle.h b/libguile/array-handle.h
index e777d4de0..abe617ff5 100644
--- a/libguile/array-handle.h
+++ b/libguile/array-handle.h
@@ -106,6 +106,9 @@ typedef struct scm_t_array_handle {
   scm_t_array_element_type element_type;
   const void *elements;
   void *writable_elements;
+
+  /* The backing store for the array, and its accessors.  */
+  SCM vector;
   scm_t_array_ref vref;
   scm_t_array_set vset;
 } scm_t_array_handle;