From 8e8759bf118780e5a1b6675f88beefcb7885ba77 Mon Sep 17 00:00:00 2001 From: kappa Date: Wed, 23 Oct 2019 17:23:48 +0200 Subject: [PATCH] =?UTF-8?q?=D0=9F=D0=BE=D0=BF=D1=80=D0=B0=D0=B2=D1=99?= =?UTF-8?q?=D0=B5=D0=BD=20=D0=B1=D0=B0=D0=B3=20=D0=BA=D0=BE=D1=98=D0=B8=20?= =?UTF-8?q?=D0=B8=D0=B7=D0=B0=D0=B7=D0=B8=D0=B2=D0=B0=20=D0=A1=D0=98=D0=93?= =?UTF-8?q?=D0=90=D0=91=D0=A0=D0=A2=20=D0=BA=D0=B0=D0=B4=D0=B0=20=D1=81?= =?UTF-8?q?=D0=B5=20=D1=81=D0=BB=D0=BE=D0=B6=D0=B5=D0=BD=D0=B0=20=D1=84?= =?UTF-8?q?=D1=83=D0=BD=D0=BA=D1=86=D0=B8=D1=98=D0=B0=20=D0=BF=D0=BE=D0=B7?= =?UTF-8?q?=D0=BE=D0=B2=D0=B5=20=D1=81=D0=B0=20=D0=BD=D0=B5=D0=BF=D1=80?= =?UTF-8?q?=D0=B0=D0=B2=D0=B8=D0=BB=D0=BD=D0=B8=D0=BC=20=D0=B1=D1=80=D0=BE?= =?UTF-8?q?=D1=98=D0=B5=D0=BC=20=D0=B0=D1=80=D0=B3=D1=83=D0=BC=D0=B5=D0=BD?= =?UTF-8?q?=D0=B0=D1=82=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- eval.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/eval.c b/eval.c index ffbf4fd..552554b 100644 --- a/eval.c +++ b/eval.c @@ -209,7 +209,7 @@ apply: return result; } - object args = PROC_COMP_ARGS(procedure); + object args = copyObject(PROC_COMP_ARGS(procedure)); env definitionEnv = PROC_COMP_ENV(procedure); env procEnv; @@ -238,6 +238,7 @@ apply: deleteObject(parameters); SIGERR(argumentNumberError); } + deleteObject(args); object *currentExprPointer = &PROC_COMP_BODY(procedure); object currentExpr;