X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_eval.c;h=ef521605764fd1d1a013079149d826963ef4d763;hb=a9faa2a69829756f65192b99b620a18176b496b6;hp=5fa9e0ad47a25ebbde49557b315ae41fd4e6ff1b;hpb=76a266034fd6867d33739bccc6c0a016695ab106;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_eval.c b/src/lisp/ao_lisp_eval.c
index 5fa9e0ad..ef521605 100644
--- a/src/lisp/ao_lisp_eval.c
+++ b/src/lisp/ao_lisp_eval.c
@@ -525,6 +525,7 @@ ao_lisp_eval_while(void)
 	DBGI(".. frame "); DBG_POLY(ao_lisp_frame_poly(ao_lisp_frame_current)); DBG("\n");
 	DBGI(".. saved frame "); DBG_POLY(ao_lisp_stack->frame); DBG("\n");
 
+	ao_lisp_stack->values = ao_lisp_v;
 	if (!ao_lisp_stack->sexprs) {
 		ao_lisp_v = AO_LISP_NIL;
 		ao_lisp_stack->state = eval_val;
@@ -548,6 +549,7 @@ ao_lisp_eval_while_test(void)
 	DBGI(".. saved frame "); DBG_POLY(ao_lisp_stack->frame); DBG("\n");
 
 	if (ao_lisp_v) {
+		ao_lisp_stack->values = ao_lisp_v;
 		ao_lisp_v = ao_lisp_poly_cons(ao_lisp_stack->sexprs)->cdr;
 		ao_lisp_stack->state = eval_while;
 		if (!ao_lisp_stack_push())
@@ -556,7 +558,10 @@ ao_lisp_eval_while_test(void)
 		ao_lisp_stack->sexprs = ao_lisp_v;
 	}
 	else
+	{
 		ao_lisp_stack->state = eval_val;
+		ao_lisp_v = ao_lisp_stack->values;
+	}
 	return 1;
 }