sage
/
pebblisp
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adding to env checks outer env for existing Object

This commit is contained in:
Sage Vaillancourt 2020-10-29 10:26:44 -04:00
parent cb87fbdae6
commit 94555e4497
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/env.c
View File

@ -76,18 +76,22 @@ struct Environment envForLambda(const Object *params, const Object *arg_forms,
void addToEnv(struct Environment *env, const char *name, const Object obj) void addToEnv(struct Environment *env, const char *name, const Object obj)
{ {
int i; int i;
for(i = 0; i < env->size; i++) { struct Environment *temp_env = env;
if(env->strings[i] == NULL) { while(temp_env) {
env->strings[i] = calloc(sizeof(char), strlen(name) + 1); for(i = 0; i < temp_env->size; i++) {
strncpy(env->strings[i], name, strlen(name)); if(temp_env->strings[i] == NULL) {
env->objects[i] = cloneObject(obj); temp_env->strings[i] = calloc(sizeof(char), strlen(name) + 1);
return; strncpy(temp_env->strings[i], name, strlen(name));
} temp_env->objects[i] = cloneObject(obj);
if(strcmp(env->strings[i], name) == 0) { return;
cleanObject(&env->objects[i]); }
env->objects[i] = cloneObject(obj); if(strcmp(temp_env->strings[i], name) == 0) {
return; cleanObject(&temp_env->objects[i]);
temp_env->objects[i] = cloneObject(obj);
return;
}
} }
temp_env = temp_env->outer;
} }
printd("Reallocating environment\n"); printd("Reallocating environment\n");