X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_eval.c;h=1c9298691b273eb001bb38438e5792e5b9c4b2ed;hb=c8d2b9acf4b118f36a114de2af4db42ae04426ed;hp=ae2436b8cd86d7026bde5b1bc7347abaced9ba00;hpb=7b99963e13f1cf3136c67521c851827377790a06;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_eval.c b/src/lisp/ao_lisp_eval.c
index ae2436b8..1c929869 100644
--- a/src/lisp/ao_lisp_eval.c
+++ b/src/lisp/ao_lisp_eval.c
@@ -32,6 +32,7 @@ stack_mark(void *addr)
 		ao_lisp_poly_mark(stack->values, 0);
 		/* no need to mark values_tail */
 		ao_lisp_poly_mark(stack->frame, 0);
+		ao_lisp_poly_mark(stack->list, 0);
 		stack = ao_lisp_poly_stack(stack->prev);
 		if (ao_lisp_mark_memory(stack, sizeof (struct ao_lisp_stack)))
 			break;
@@ -47,12 +48,15 @@ stack_move(void *addr)
 
 	while (stack) {
 		struct ao_lisp_stack	*prev;
-		int	ret;
+		int			ret;
 		(void) ao_lisp_poly_move(&stack->sexprs, 0);
 		(void) ao_lisp_poly_move(&stack->values, 0);
 		(void) ao_lisp_poly_move(&stack->values_tail, 0);
 		(void) ao_lisp_poly_move(&stack->frame, 0);
+		(void) ao_lisp_poly_move(&stack->list, 0);
 		prev = ao_lisp_poly_stack(stack->prev);
+		if (!prev)
+			break;
 		ret = ao_lisp_move_memory((void **) &prev,
 					  sizeof (struct ao_lisp_stack));
 		if (prev != ao_lisp_poly_stack(stack->prev))