mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Add "vector" member to scm_t_array_handle

Browse source 
* libguile/array-handle.h (scm_t_array_handle): Add "vector" member.
* libguile/array-handle.c (scm_array_get_handle): Initialize the vector
  member.
This commit is contained in:
Andy Wingo 2014-02-08 22:11:36 +01:00
parent e6658f527e
commit a0ef1252af
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/array-handle.c
View file

@ -75,6 +75,7 @@ scm_array_get_handle (SCM array, scm_t_array_handle *h)
h->writable_elements = NULL;
h->vref = impl->vref;
h->vset = impl->vset;
h->vector = SCM_I_ARRAYP (array) ? SCM_I_ARRAY_V (array) : array;
impl->get_handle (array, h);
}