Fix stack on procedure call return

1 files changed, 3 insertions, 1 deletions

diff --git a/src/parser.c b/src/parser.c
index 64bd22d..0968ccd 100644
--- a/src/parser.c
+++ b/src/parser.c
@@ -456,7 +456,9 @@ symbol_in_env(Environment *env, Object *symbol) {
 
 void
 insert_local(Environment *env, Object *symbol, Object *value) {
-    if (find_var_index(env->locals, symbol) != -1) {
+    ssize_t idx = find_var_index(env->locals, symbol);
+    if (idx != -1) {
+        env->local_values[idx] = value;
         return;
     }
     array_push(env->locals, symbol);