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=0dd8c698646703ea5f0a0057de4d7b9faee937d6;hb=5557f6b87a9b8bc9716de8191f2062a772a6ae6c;hp=6020a8b8b1a8482e970d891c49306171d7e593b5;hpb=ce549b2c11e6b2571590021e1c0503d8a6e7a702;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_lambda.c b/src/lisp/ao_lisp_lambda.c
index 6020a8b8..0dd8c698 100644
--- a/src/lisp/ao_lisp_lambda.c
+++ b/src/lisp/ao_lisp_lambda.c
@@ -168,6 +168,7 @@ ao_lisp_lambda_eval(void)
 			args = ao_lisp_poly_cons(args->cdr);
 			vals = ao_lisp_poly_cons(vals->cdr);
 		}
+		ao_lisp_cons_free(cons);
 		break;
 	}
 	case AO_LISP_FUNC_LEXPR: