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

diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c
index d4dc8a86..693cc3ca 100644
--- a/src/lisp/ao_lisp_builtin.c
+++ b/src/lisp/ao_lisp_builtin.c
@@ -232,9 +232,9 @@ ao_lisp_do_cond(struct ao_lisp_cons *cons)
 }
 
 ao_poly
-ao_lisp_do_progn(struct ao_lisp_cons *cons)
+ao_lisp_do_begin(struct ao_lisp_cons *cons)
 {
-	ao_lisp_stack->state = eval_progn;
+	ao_lisp_stack->state = eval_begin;
 	ao_lisp_stack->sexprs = ao_lisp_cons_poly(cons);
 	return AO_LISP_NIL;
 }