altos/lisp: Rename progn to begin

[fw/altos] / src / lisp / ao_lisp.h

diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h
index cbbbe9a47ebf82fdf43b87ac5312a3f03fe9391b..858212dd5012fc9659fce01dea1a8ba384a0f4f5 100644 (file)
--- 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 */