X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_stack.c;h=9d6cccc41f61175f486e7f65b90378da95c2c81c;hp=af68b6561f4d0c4a4cc556122a9a200a6f96c8b4;hb=00bf2ca86b60e6501880011897cea073865c5a03;hpb=5f9f97cc2d43936d1941da3a9a130c279bc70b99

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