-scm_c_generalized_vector_set_x (SCM v, size_t idx, SCM val)
-{
- scm_t_array_handle h;
- scm_generalized_vector_get_handle (v, &h);
- h.impl->vset (&h, idx, val);
- scm_array_handle_release (&h);
-}
-
-SCM_DEFINE (scm_generalized_vector_set_x, "generalized-vector-set!", 3, 0, 0,
- (SCM v, SCM idx, SCM val),
- "Set the element at index @var{idx} of the\n"
- "generalized vector @var{v} to @var{val}.")
-#define FUNC_NAME s_scm_generalized_vector_set_x