コード例 #1
0
ファイル: repleval.c プロジェクト: AndrewRademacher/ptscheme
object *bindings_parameters(object *bindings) {
    return is_empty(bindings) ?
               empty_list() :
               cons(binding_parameter(car(bindings)), bindings_parameters(cdr(bindings)));
}
コード例 #2
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)));
}