Add set! and eval procedures

1 files changed, 4 insertions, 9 deletions

diff --git a/src/bootstrap/environment.c b/src/bootstrap/environment.c
index d4e9f86..99dd7fd 100644
--- a/src/bootstrap/environment.c
+++ b/src/bootstrap/environment.c
@@ -60,18 +60,13 @@ env_lookup(Environment *env, Object *symbol) {
     return obj_err;
 }
 
-void
-env_update_symbol(Environment *env, Object *symbol, Object *value) {
-    // Try to find an existing symbol in the current environment.
+ssize_t
+env_symbol_index_in_current_env(Environment *env, Object *symbol) {
     for (size_t i = 0; i < env->size; i++) {
         EnvEntry entry = env->buf[i];
         if (obj_eq(symbol, entry.symbol)) {
-            env->buf[i].value = value;
-            return;
+            return i;
         }
     }
-    // If we don't find the symbol, add a new entry.
-    env_add_symbol(env, symbol, value);
+    return -1;
 }
-
-// TODO: Free env function.