Exemplos de Scheme::evaluate em PHP

Exemplo n.º 1

Arquivo: functions.php Projeto: nagashima/php-scheme

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);
}