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

change some function names in cont.c

This commit is contained in:
Yuichi Nishiwaki 2013-11-09 15:25:19 +09:00
parent 76990d512f
commit 9d467e4d14
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/cont.c
View File

@ -44,7 +44,7 @@ restore_cont(pic_state *pic, struct pic_cont *cont)
} }
static pic_value static pic_value
pic_cont_call(pic_state *pic) cont_call(pic_state *pic)
{ {
struct pic_proc *proc; struct pic_proc *proc;
pic_value v; pic_value v;
@ -109,7 +109,7 @@ save_cont(pic_state *pic)
} }
static pic_value static pic_value
pic_callcc(pic_state *pic) pic_cont_callcc(pic_state *pic)
{ {
struct pic_cont *cont; struct pic_cont *cont;
pic_value v; pic_value v;
@ -129,7 +129,7 @@ pic_callcc(pic_state *pic)
else { else {
struct pic_proc *c; struct pic_proc *c;
c = pic_proc_new_cfunc(pic, pic_cont_call); c = pic_proc_new_cfunc(pic, cont_call);
/* save the continuation object in proc */ /* save the continuation object in proc */
c->env = (struct pic_env *)pic_obj_alloc(pic, sizeof(struct pic_env), PIC_TT_ENV); c->env = (struct pic_env *)pic_obj_alloc(pic, sizeof(struct pic_env), PIC_TT_ENV);
c->env->up = NULL; c->env->up = NULL;
@ -144,6 +144,6 @@ pic_callcc(pic_state *pic)
void void
pic_init_cont(pic_state *pic) pic_init_cont(pic_state *pic)
{ {
pic_defun(pic, "call-with-current-continuation", pic_callcc); pic_defun(pic, "call-with-current-continuation", pic_cont_callcc);
pic_defun(pic, "call/cc", pic_callcc); pic_defun(pic, "call/cc", pic_cont_callcc);
} }