Exemplo n.º 1
0
T eval_defun(T form, Environment env) {
	Object name = CADR(form);
	Object value = mklambda(CADDR(form), CADDDR(form), env);
	defglobal(name, value);
	return name;
}
Exemplo n.º 2
0
Value *eval_lambda(Value *form, Value *env)
{
    Value *lambda_args = CADR(form);
    Value *lambda_body = CADDR(form);
    return mklambda(lambda_args, lambda_body, env);
}
Exemplo n.º 3
0
T eval_lambda(T form, Environment env) {
	Object args = CADR(form);
	Object body = CADDR(form);
	return mklambda(args, body, env);
}