int
ao_lisp_stack_push(void)
{
- struct ao_lisp_stack *stack = ao_lisp_stack_new();
+ struct ao_lisp_stack *stack;
+
+ stack = ao_lisp_stack_new();
if (!stack)
return 0;
cons->cdr = AO_LISP_NIL;
v = ao_lisp_lambda_eval();
ao_lisp_stack->sexprs = v;
- ao_lisp_stack->state = eval_progn;
+ ao_lisp_stack->state = eval_begin;
return AO_LISP_NIL;
}