static pic_value
pic_cont_callcc(pic_state *pic)
{
struct pic_proc *cb;
pic_get_args(pic, "l", &cb);
return pic_callcc(pic, cb);
}
static pic_value
pic_callcc_callcc(pic_state *pic)
{
pic_value proc;
pic_get_args(pic, "l", &proc);
return pic_callcc(pic, proc);
}