T eval_defun(T form, Environment env) {
Object name = CADR(form);
Object value = mklambda(CADDR(form), CADDDR(form), env);
defglobal(name, value);
return name;
}
Value *eval_lambda(Value *form, Value *env)
{
Value *lambda_args = CADR(form);
Value *lambda_body = CADDR(form);
return mklambda(lambda_args, lambda_body, env);
}
T eval_lambda(T form, Environment env) {
Object args = CADR(form);
Object body = CADDR(form);
return mklambda(args, body, env);
}
