From 82da8e7f1c68f238b2c00d19fdc9c6c71d8f99c0 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 19 Jul 2021 16:08:44 -0400
Subject: Never mark exported variables as deleteable

---
 src/c.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 3bb84371..3fa077ed 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -234,9 +234,9 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
   ix←(ic<3)∧ia←0<ic                         # Which are exports, assignments
   idd←(⊢-(uv⊏ded←-0⌈def)∾(du↓IT d)⊸⊏)id⊏fd  # Identifier frame depth
   "Can't export from surrounding scope"_err_(ID) ix∧0<idd
-  dx←dg⊔zda∾(dig←⍋d/ig)⊏d(/≥1↓PN)ix         # Exported identifier mask
+  dx←dg⊔zda∾(dig←⍋d/ig)⊏ixa←d(/≥1↓PN)ix     # Exported identifier mask
   idi←(uv⊸⊏∾(¯1+`du↓d)⊏dig⍋⊸⊏da≠⊸↓⊢)(⊏⟜fsc+⊒)ded∾df # Slot within frame
-  uu←(ia<1«d)∧d(⊣+`⊸⊏·0⌾⊑PN)0<idd           # Unused marker
+  uu←(ia<1«d)∧d(⊣+`⊸⊏(1∾ixa)<PN)0<idd       # Unused marker
   spi←((spf←sp⊏fi)⊏3×fx)+3+sp⊏xv            # Special name index
   uu∾↩∊⌾⌽spi+6×spf                          # and unused marker
   idor←∾2‿3/⟨di,id∾sp⟩                      # Identifier bytecode ordering
-- 
cgit v1.2.3