conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add vector-set!

This commit is contained in:
Yuichi Nishiwaki 2013-11-14 16:57:07 +09:00
parent b56b86aae2
commit 48c5c6b17c
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/vector.c
View File

@ -77,6 +77,19 @@ pic_vec_vector_ref(pic_state *pic)
return v->data[k]; return v->data[k];
} }
static pic_value
pic_vec_vector_set(pic_state *pic)
{
struct pic_vector *v;
int k;
pic_value o;
pic_get_args(pic, "vio", &v, &k, &o);
v->data[k] = o;
return pic_false_value();
}
void void
pic_init_vector(pic_state *pic) pic_init_vector(pic_state *pic)
{ {
@ -84,4 +97,5 @@ pic_init_vector(pic_state *pic)
pic_defun(pic, "make-vector", pic_vec_make_vector); pic_defun(pic, "make-vector", pic_vec_make_vector);
pic_defun(pic, "vector-length", pic_vec_vector_length); pic_defun(pic, "vector-length", pic_vec_vector_length);
pic_defun(pic, "vector-ref", pic_vec_vector_ref); pic_defun(pic, "vector-ref", pic_vec_vector_ref);
pic_defun(pic, "vector-set!", pic_vec_vector_set);
} }