Exemplo n.º 1
0
function SCM_if($s, $env)
{
    $cond = $s->car;
    if (Scheme::evaluate($cond, $env) == Symbol::new_instance('#t')) {
        $rule = $s->cdr->car;
    } else {
        $rule = $s->cdr->cdr;
    }
    return SCM_begin($rule, $env);
}