object *let_parameters(object *exp) {
return bindings_parameters(let_bindings(exp));
}
static pSlipObject let_parameters(pSlip gd, pSlipObject exp)
{
return bindings_parameters(gd, let_bindings(exp));
}
object *bindings_parameters(object *bindings) {
return is_empty(bindings) ?
empty_list() :
cons(binding_parameter(car(bindings)), bindings_parameters(cdr(bindings)));
}
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)));
}
