예제 #1
0
파일: eval.c 프로젝트: lienhua34/CSchemer 
//one arg: exp
static cellpoint cond_2_if(void)
{
	args_push(args_ref(1));
	reg = cond_clauses();
	args_push(reg);
	reg = expand_clauses();
	args_pop(1);
	return reg;
}
예제 #2
0
object *cond_to_if(object *exp) {
    return expand_clauses(cond_clauses(exp));
}
예제 #3
0
파일: slip.c 프로젝트: stu/bootstrap-slip 
static pSlipObject cond_to_if(pSlip gd, pSlipObject exp)
{
	return expand_clauses(gd, cond_clauses(exp));
}