From cb3c4e8e22bad715552662993cf8ced11b2da478 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Wed, 16 Jul 2014 10:13:18 +0900 Subject: [PATCH] remove use of pic_proc_cv_init --- include/picrin/proc.h | 2 -- src/cont.c | 2 -- src/proc.c | 11 ----------- 3 files changed, 15 deletions(-) diff --git a/include/picrin/proc.h b/include/picrin/proc.h index e6d9fdbc..d72ddc04 100644 --- a/include/picrin/proc.h +++ b/include/picrin/proc.h @@ -54,8 +54,6 @@ pic_sym pic_proc_name(struct pic_proc *); struct pic_dict *pic_proc_attr(pic_state *, struct pic_proc *); /* 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); void pic_proc_cv_set(pic_state *, struct pic_proc *, size_t, pic_value); diff --git a/src/cont.c b/src/cont.c index f84e55c7..f76a6695 100644 --- a/src/cont.c +++ b/src/cont.c @@ -245,7 +245,6 @@ pic_callcc(pic_state *pic, struct pic_proc *proc) c = pic_proc_new(pic, cont_call, ""); /* save the continuation object in proc */ - pic_proc_cv_init(pic, c, 1); pic_proc_cv_set(pic, c, 0, pic_obj_value(cont)); 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, ""); /* save the continuation object in proc */ - pic_proc_cv_init(pic, c, 1); pic_proc_cv_set(pic, c, 0, pic_obj_value(cont)); return pic_apply_trampoline(pic, proc, pic_list1(pic, pic_obj_value(c))); diff --git a/src/proc.c b/src/proc.c index d7f391b0..bd11bcf4 100644 --- a/src/proc.c +++ b/src/proc.c @@ -58,17 +58,6 @@ pic_proc_attr(pic_state *pic, struct pic_proc *proc) 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_proc_cv_ref(pic_state *pic, struct pic_proc *proc, size_t i) {