Example #1
0
//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;
}
Example #2
0
object *cond_to_if(object *exp) {
    return expand_clauses(cond_clauses(exp));
}
Example #3
0
static pSlipObject cond_to_if(pSlip gd, pSlipObject exp)
{
	return expand_clauses(gd, cond_clauses(exp));
}