예제 #1
0
파일: cont.c 프로젝트: hopkinsr/picrin 
static pic_value
pic_cont_callcc(pic_state *pic)
{
  struct pic_proc *cb;

  pic_get_args(pic, "l", &cb);

  return pic_callcc(pic, cb);
}
예제 #2
0
파일: callcc.c 프로젝트: koba-e964/picrin 
static pic_value
pic_callcc_callcc(pic_state *pic)
{
  pic_value proc;

  pic_get_args(pic, "l", &proc);

  return pic_callcc(pic, proc);
}