Fix lexical and dynamic binding

2026-07-19 02:45:15 -07:00
parent f87af5efd2
commit 046b9b0c87
3 changed files with 20 additions and 12 deletions
@@ -252,7 +252,7 @@ void set_lexical_variable(LispVal *name, LispVal *value) {
        abort();
    }
    if (DYNAMIC_SYMBOL_P(name)) {
-        SET_SYMBOL_VALUE(name, value);
+        push_dynamic_binding(name, value);
    } else {
        Vlexical_environment = Fplist_put(Vlexical_environment, name, value);
    }
@@ -265,7 +265,7 @@ void new_lexical_variable(LispVal *name, LispVal *value) {
        abort();
    }
    if (DYNAMIC_SYMBOL_P(name)) {
-        SET_SYMBOL_VALUE(name, value);
+        push_dynamic_binding(name, value);
    } else {
        Vlexical_environment = CONS(name, CONS(value, Vlexical_environment));
    }