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