X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_lambda.c;fp=src%2Flisp%2Fao_lisp_lambda.c;h=656936cb88c691b10077b5543fb2693d56dfbe34;hb=8bf6b8989a4f365467fae38a03570d277f362ac2;hp=e2053a6f3d4302e15e17c75c3dfe21cc8be90258;hpb=498f1e8fd2bfdee5069508ef8fa570f944883011;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_lambda.c b/src/lisp/ao_lisp_lambda.c
index e2053a6f..656936cb 100644
--- a/src/lisp/ao_lisp_lambda.c
+++ b/src/lisp/ao_lisp_lambda.c
@@ -175,7 +175,8 @@ ao_lisp_lambda_eval(void)
 			args = ao_lisp_poly_cons(args->cdr);
 			vals = ao_lisp_poly_cons(vals->cdr);
 		}
-		ao_lisp_cons_free(cons);
+		if (!ao_lisp_stack_marked(ao_lisp_stack))
+			ao_lisp_cons_free(cons);
 		cons = NULL;
 		break;
 	case AO_LISP_FUNC_LEXPR: