diff options
Diffstat (limited to 'src/lisp/ao_lisp_stack.c')
| -rw-r--r-- | src/lisp/ao_lisp_stack.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp/ao_lisp_stack.c b/src/lisp/ao_lisp_stack.c index af68b656..9d6cccc4 100644 --- a/src/lisp/ao_lisp_stack.c +++ b/src/lisp/ao_lisp_stack.c @@ -273,6 +273,6 @@ ao_lisp_do_call_cc(struct ao_lisp_cons *cons) 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; } |