Hojun-Cho/clisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix eval.c:find logic

Browse Source
This commit is contained in:
yoyo 2024-09-12 19:01:13 +09:00
parent 9a12d2ac9f
commit 07300eff7c
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
eval.c
View File

@ -65,16 +65,12 @@ clone(Object *p)
static Object*
find(Object *env, Object *obj)
{
Object *res = 0;
for(Object *cur=env->sp->car; cur!=&Nil; cur=cur->up)
for(Object *p=cur->local; p!=&Nil; p=cdr(p))
if(strequal(obj, car(car(p)))){
res = p;
break;
}
if(res == 0)
error("not exist variable");
return clone(cdr(car(res)));
if(strequal(obj, car(car(p))))
return clone(cdr(car(p)));
error("not exist variable");
return 0;
}
static Object*