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

remove use of pic_proc_cv_init

This commit is contained in:
Yuichi Nishiwaki 2014-07-16 10:13:18 +09:00
parent f46114ca03
commit cb3c4e8e22
3 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/picrin/proc.h
View File

@ -54,8 +54,6 @@ pic_sym pic_proc_name(struct pic_proc *);
struct pic_dict *pic_proc_attr(pic_state *, struct pic_proc *); struct pic_dict *pic_proc_attr(pic_state *, struct pic_proc *);
/* closed variables accessor */ /* closed variables accessor */
void pic_proc_cv_init(pic_state *, struct pic_proc *, size_t);
int pic_proc_cv_size(pic_state *, struct pic_proc *);
pic_value pic_proc_cv_ref(pic_state *, struct pic_proc *, size_t); pic_value pic_proc_cv_ref(pic_state *, struct pic_proc *, size_t);
void pic_proc_cv_set(pic_state *, struct pic_proc *, size_t, pic_value); void pic_proc_cv_set(pic_state *, struct pic_proc *, size_t, pic_value);

2
src/cont.c
View File

@ -245,7 +245,6 @@ pic_callcc(pic_state *pic, struct pic_proc *proc)
c = pic_proc_new(pic, cont_call, "<continuation-procedure>"); c = pic_proc_new(pic, cont_call, "<continuation-procedure>");
/* save the continuation object in proc */ /* save the continuation object in proc */
pic_proc_cv_init(pic, c, 1);
pic_proc_cv_set(pic, c, 0, pic_obj_value(cont)); pic_proc_cv_set(pic, c, 0, pic_obj_value(cont));
return pic_apply1(pic, proc, pic_obj_value(c)); return pic_apply1(pic, proc, pic_obj_value(c));
@ -267,7 +266,6 @@ pic_callcc_trampoline(pic_state *pic, struct pic_proc *proc)
c = pic_proc_new(pic, cont_call, "<continuation-procedure>"); c = pic_proc_new(pic, cont_call, "<continuation-procedure>");
/* save the continuation object in proc */ /* save the continuation object in proc */
pic_proc_cv_init(pic, c, 1);
pic_proc_cv_set(pic, c, 0, pic_obj_value(cont)); pic_proc_cv_set(pic, c, 0, pic_obj_value(cont));
return pic_apply_trampoline(pic, proc, pic_list1(pic, pic_obj_value(c))); return pic_apply_trampoline(pic, proc, pic_list1(pic, pic_obj_value(c)));

11
src/proc.c
View File

@ -58,17 +58,6 @@ pic_proc_attr(pic_state *pic, struct pic_proc *proc)
return proc->attr; return proc->attr;
} }
void
pic_proc_cv_init(pic_state *pic, struct pic_proc *proc, size_t cv_size)
{
}
int
pic_proc_cv_size(pic_state *pic, struct pic_proc *proc)
{
return 0;
}
pic_value pic_value
pic_proc_cv_ref(pic_state *pic, struct pic_proc *proc, size_t i) pic_proc_cv_ref(pic_state *pic, struct pic_proc *proc, size_t i)
{ {