X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_eval.c;h=6f56a1205aee9a561e070dc68327175880af17d7;hb=bcf5eb5825b1217d74f117b02d09b4ce4b007beb;hp=3af567964deab8a4f87d13a26d13425e3508e901;hpb=974717eb9dad105c9897ee24f953d98d57eaec77;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_eval.c b/src/lisp/ao_lisp_eval.c
index 3af56796..6f56a120 100644
--- a/src/lisp/ao_lisp_eval.c
+++ b/src/lisp/ao_lisp_eval.c
@@ -122,7 +122,8 @@ ao_lisp_stack_push(void)
 static void
 ao_lisp_stack_pop(void)
 {
-	ao_poly	prev;
+	ao_poly			prev;
+	struct ao_lisp_frame	*prev_frame;
 
 	if (!ao_lisp_stack)
 		return;
@@ -131,10 +132,13 @@ ao_lisp_stack_pop(void)
 	ao_lisp_stack_free_list = ao_lisp_stack;
 
 	ao_lisp_stack = ao_lisp_poly_stack(prev);
+	prev_frame = ao_lisp_frame_current;
 	if (ao_lisp_stack)
 		ao_lisp_frame_current = ao_lisp_poly_frame(ao_lisp_stack->frame);
 	else
 		ao_lisp_frame_current = NULL;
+	if (ao_lisp_frame_current != prev_frame)
+		ao_lisp_frame_free(prev_frame);
 	DBG_OUT();
 	DBGI("stack pop\n");
 	DBG_FRAMES();