s/pic_make_cont/pic_make_econt/g

This commit is contained in:
Yuichi Nishiwaki 2014-09-24 18:43:20 +09:00
parent 7c5fb70e73
commit cb2157bbae
3 changed files with 4 additions and 4 deletions

4
cont.c
View File

@ -112,7 +112,7 @@ escape_call(pic_state *pic)
} }
struct pic_proc * struct pic_proc *
pic_make_cont(pic_state *pic, struct pic_escape *escape) pic_make_econt(pic_state *pic, struct pic_escape *escape)
{ {
static const pic_data_type escape_type = { "escape", pic_free, NULL }; static const pic_data_type escape_type = { "escape", pic_free, NULL };
struct pic_proc *cont; struct pic_proc *cont;
@ -141,7 +141,7 @@ pic_escape(pic_state *pic, struct pic_proc *proc)
else { else {
pic_value val; pic_value val;
val = pic_apply1(pic, proc, pic_obj_value(pic_make_cont(pic, escape))); val = pic_apply1(pic, proc, pic_obj_value(pic_make_econt(pic, escape)));
escape->valid = false; escape->valid = false;

View File

@ -99,7 +99,7 @@ pic_push_try(pic_state *pic)
struct pic_proc *cont, *handler; struct pic_proc *cont, *handler;
size_t xp_len, xp_offset; size_t xp_len, xp_offset;
cont = pic_make_cont(pic, escape); cont = pic_make_econt(pic, escape);
handler = pic_make_proc(pic, native_exception_handler, "(native-exception-handler)"); handler = pic_make_proc(pic, native_exception_handler, "(native-exception-handler)");

View File

@ -29,7 +29,7 @@ struct pic_escape {
int pic_save_point(pic_state *, struct pic_escape *); int pic_save_point(pic_state *, struct pic_escape *);
noreturn void pic_load_point(pic_state *, struct pic_escape *); noreturn void pic_load_point(pic_state *, struct pic_escape *);
struct pic_proc *pic_make_cont(pic_state *, struct pic_escape *); struct pic_proc *pic_make_econt(pic_state *, struct pic_escape *);
void pic_wind(pic_state *, struct pic_winder *, struct pic_winder *); void pic_wind(pic_state *, struct pic_winder *, struct pic_winder *);
pic_value pic_dynamic_wind(pic_state *, struct pic_proc *, struct pic_proc *, struct pic_proc *); pic_value pic_dynamic_wind(pic_state *, struct pic_proc *, struct pic_proc *, struct pic_proc *);