kayprish/cirilisp
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Мање небитне промене

Browse source
This commit is contained in:
kappa 2019-11-01 22:02:08 +01:00
parent 8e8759bf11
commit 4228b81870
2 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
eval.c
View file

@ -5,8 +5,6 @@
#include "internals.h" #include "internals.h"
#include "eval.h" #include "eval.h"
object apply(object function, object parameters, env currentEnv);
int bindArgs(object parameters, object args, env newEnv) int bindArgs(object parameters, object args, env newEnv)
/* на почетку извршавања функције, везује прослеђене параметре, за симболе у /* на почетку извршавања функције, везује прослеђене параметре, за симболе у
* дефиницији функције, везивање се врши у новонасталом окружењу, уколико је * дефиницији функције, везивање се врши у новонасталом окружењу, уколико је
@ -251,7 +249,7 @@ apply:
deleteObject(currentExpr); deleteObject(currentExpr);
currentExprPointer = &CDR(*currentExprPointer); currentExprPointer = &CDR(*currentExprPointer);
} }
/* репни позив */ /* репни израз */
currentExpr = copyObject(CAR(*currentExprPointer)); currentExpr = copyObject(CAR(*currentExprPointer));
deleteObject(procedure); deleteObject(procedure);

1
eval.h
View file

@ -1,4 +1,3 @@
#pragma once #pragma once
object Eval(object input, env currentEnv); object Eval(object input, env currentEnv);
object apply(object function, object parameters, env currentEnv);