diff --git a/eval.c b/eval.c index 552554b..37f69f8 100644 --- a/eval.c +++ b/eval.c @@ -5,8 +5,6 @@ #include "internals.h" #include "eval.h" -object apply(object function, object parameters, env currentEnv); - int bindArgs(object parameters, object args, env newEnv) /* на почетку извршавања функције, везује прослеђене параметре, за симболе у * дефиницији функције, везивање се врши у новонасталом окружењу, уколико је @@ -251,7 +249,7 @@ apply: deleteObject(currentExpr); currentExprPointer = &CDR(*currentExprPointer); } - /* репни позив */ + /* репни израз */ currentExpr = copyObject(CAR(*currentExprPointer)); deleteObject(procedure); diff --git a/eval.h b/eval.h index 38937b6..c4db117 100644 --- a/eval.h +++ b/eval.h @@ -1,4 +1,3 @@ #pragma once object Eval(object input, env currentEnv); -object apply(object function, object parameters, env currentEnv);