X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_eval.c;fp=src%2Flisp%2Fao_lisp_eval.c;h=57227e9338d3c9a095da4ad430e9bc1ae10a61cc;hb=0ced351c8f4449f7086b04e42c822d649f040d1f;hp=b6cb4fd83cd6400c9bb3caac222dba08c5415af8;hpb=b3b4731fcb89cb404433f37a7704a503567c43bd;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_eval.c b/src/lisp/ao_lisp_eval.c
index b6cb4fd8..57227e93 100644
--- a/src/lisp/ao_lisp_eval.c
+++ b/src/lisp/ao_lisp_eval.c
@@ -324,6 +324,8 @@ ao_lisp_eval_cond(void)
 			return 0;
 		}
 		ao_lisp_v = ao_lisp_poly_cons(ao_lisp_v)->car;
+		if (ao_lisp_v == _ao_lisp_atom_else)
+			ao_lisp_v = _ao_lisp_bool_true;
 		ao_lisp_stack->state = eval_cond_test;
 		if (!ao_lisp_stack_push())
 			return 0;
@@ -492,6 +494,9 @@ const char *ao_lisp_state_names[] = {
 	"cond",
 	"cond_test",
 	"progn",
+	"while",
+	"while_test",
+	"macro",
 };
 
 /*