예제 #1
0
object *let_parameters(object *exp) {
    return bindings_parameters(let_bindings(exp));
}
예제 #2
0
파일: slip.c 프로젝트: stu/bootstrap-slip 
static pSlipObject let_parameters(pSlip gd, pSlipObject exp)
{
	return bindings_parameters(gd, let_bindings(exp));
}
예제 #3
0
object *bindings_parameters(object *bindings) {
    return is_empty(bindings) ?
               empty_list() :
               cons(binding_parameter(car(bindings)), bindings_parameters(cdr(bindings)));
}
예제 #4
0
파일: slip.c 프로젝트: stu/bootstrap-slip 
static pSlipObject bindings_parameters(pSlip gd, pSlipObject bindings)
{
	return sIsObject_EmptyList(gd, bindings) ? gd->singleton_EmptyList : cons(gd, binding_parameter(car(bindings)), bindings_parameters(gd, cdr(bindings)));
}