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

s/walk_to_block/pic_wind/g

This commit is contained in:
Yuichi Nishiwaki 2014-09-17 15:26:42 +09:00
parent b4c3f4fb73
commit 836c607979
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cont.c
View File

@ -205,19 +205,19 @@ restore_cont(pic_state *pic, struct pic_cont *cont)
longjmp(tmp->jmp, 1); longjmp(tmp->jmp, 1);
} }
static void void
walk_to_block(pic_state *pic, struct pic_winder *here, struct pic_winder *there) pic_wind(pic_state *pic, struct pic_winder *here, struct pic_winder *there)
{ {
if (here == there) if (here == there)
return; return;
if (here->depth < there->depth) { if (here->depth < there->depth) {
walk_to_block(pic, here, there->prev); pic_wind(pic, here, there->prev);
pic_apply0(pic, there->in); pic_apply0(pic, there->in);
} }
else { else {
pic_apply0(pic, there->out); pic_apply0(pic, there->out);
walk_to_block(pic, here->prev, there); pic_wind(pic, here->prev, there);
} }
} }
@ -264,7 +264,7 @@ cont_call(pic_state *pic)
cont->results = pic_list_by_array(pic, argc, argv); cont->results = pic_list_by_array(pic, argc, argv);
/* execute guard handlers */ /* execute guard handlers */
walk_to_block(pic, pic->wind, cont->wind); pic_wind(pic, pic->wind, cont->wind);
restore_cont(pic, cont); restore_cont(pic, cont);
} }

1
include/picrin/cont.h
View File

@ -47,6 +47,7 @@ pic_value pic_values_by_list(pic_state *, pic_value);
size_t pic_receive(pic_state *, size_t, pic_value *); size_t pic_receive(pic_state *, size_t, pic_value *);
pic_value pic_callcc(pic_state *, struct pic_proc *); pic_value pic_callcc(pic_state *, struct pic_proc *);
void pic_wind(pic_state *, struct pic_winder *, struct pic_winder *);
#if defined(__cplusplus) #if defined(__cplusplus)
} }