diff options
Diffstat (limited to 'libguile/srfi-4.i.c')
-rw-r--r-- | libguile/srfi-4.i.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/libguile/srfi-4.i.c b/libguile/srfi-4.i.c index f914ba020..714f4d644 100644 --- a/libguile/srfi-4.i.c +++ b/libguile/srfi-4.i.c @@ -180,6 +180,18 @@ F(scm_,TAG,vector_writable_elements) (SCM uvec, return F(scm_array_handle_,TAG,_writable_elements) (h); } +static SCM +F(,TAG,ref) (scm_t_array_handle *handle, ssize_t pos) +{ + return uvec_fast_ref (TYPE, handle->elements, pos); +} + +static void +F(,TAG,set) (scm_t_array_handle *handle, ssize_t pos, SCM val) +{ + uvec_fast_set_x (TYPE, handle->writable_elements, pos, val); +} + #undef paste #undef s_paste #undef stringify |