fix intrinsics and env

2026-02-16 23:05:00 -06:00
parent 63955e45ff
commit c9dad91ea1
13 changed files with 94696 additions and 86771 deletions
--- a/mcode.cm
+++ b/mcode.cm
@@ -1384,8 +1384,6 @@ var mcode = function(ast) {
        pstate = parent_states[length(parent_states) - 1 - _lv]
        pslot = find_var_in_saved(pstate, name)
        emit_3("put", dest, pslot, level)
-      } else {
-        add_instr(["set_var", name, dest])
      }
      return dest
    } else if (left_kind == ".") {
@@ -1486,9 +1484,6 @@ var mcode = function(ast) {
          return val_slot
        }
        val_slot = gen_expr(right, -1)
-        if (level == -1) {
-          add_instr(["set_var", name, val_slot])
-        }
      } else {
        val_slot = gen_expr(right, -1)
        if (level > 0) {