X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp.h;h=858212dd5012fc9659fce01dea1a8ba384a0f4f5;hp=cbbbe9a47ebf82fdf43b87ac5312a3f03fe9391b;hb=00bf2ca86b60e6501880011897cea073865c5a03;hpb=5f9f97cc2d43936d1941da3a9a130c279bc70b99

diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h
index cbbbe9a4..858212dd 100644
--- a/src/lisp/ao_lisp.h
+++ b/src/lisp/ao_lisp.h
@@ -229,7 +229,7 @@ enum eval_state {
 	eval_apply,		/* Execute apply */
 	eval_cond,		/* Start next cond clause */
 	eval_cond_test,		/* Check cond condition */
-	eval_progn,		/* Start next progn entry */
+	eval_begin,		/* Start next begin entry */
 	eval_while,		/* Start while condition */
 	eval_while_test,	/* Check while condition */
 	eval_macro,		/* Finished with macro generation */