Мање небитне промене
This commit is contained in:
parent
8e8759bf11
commit
4228b81870
4
eval.c
4
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);
|
||||
|
|
Loading…
Reference in a new issue