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

overwrite redefine variable

Browse Source
This commit is contained in:
yoyo 2024-09-08 17:37:31 +09:00
parent 184aab3420
commit 9b37437e53
2 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
eval.c
View File

@ -45,12 +45,22 @@ _newfn(Object *env, Object *l, enum OType type)
return newfn(gc, env, params, body, type);
}
static void
setvar(Object *env, Object *id, Object *val)
{
Object *obj = find(env, id);
if(obj == 0)
env->vars = newacons(gc, id, val, env->vars);
else
obj->cdr = val;
}
Object*
fndefn(Object *env, Object *list)
{
Object *fn = _newfn(env, list->cdr, OFUNC);
env->vars = newacons(gc, list->car, fn, env->vars);
return env->vars;
setvar(env, list->car, fn);
return fn;
}
Object*
@ -63,8 +73,8 @@ Object*
fnmacro(Object *env, Object *l)
{
Object *macro = _newfn(env, l->cdr, OMACRO);
env->vars = newacons(gc, l->car, macro, env->vars);
return env->vars;
setvar(env, l->car, macro);
return macro;
}
static Object*
@ -101,11 +111,8 @@ fndefine(Object *env, Object *list)
if(exprlen(list)!=2 || list->car->type!=OIDENT)
error("Malformed define");
Object *val = eval(env, list->cdr->car);
Object *obj = find(env, list->car);
if(obj)
return obj->cdr = val;
env->vars = newacons(gc, list->car, val, env->vars);
return env->vars;
setvar(env, list->car, val);
return val;
}
Object*

3
main.c
View File

@ -99,10 +99,9 @@ loop(Object *env, FILE *f)
while(1){
printf(">> ");
Object *res = nextexpr(f);
printexpr(res);
res = eval(env, res);
printgc("status", gc);
printexpr(res);
printgc("status", gc);
}
}