Пример #1
0
object *let_arguments(object *exp) {
    return bindings_arguments(let_bindings(exp));
}
Пример #2
0
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
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)));
}