From 4c4f6bcef476da2d233710a01634f283b01dbe7a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 8 May 2021 10:06:34 -0400
Subject: Test for export of non-local variable

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

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 73278c5f..a8379bdc 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -203,7 +203,8 @@ Parse ← {r‿vn‿i‿e←𝕨⋄nv←≠vn
   idx←idg⊔(⍋d/ig)⊏d(/≥1↓PN)0<ig⊏xm          # Exported identifier mask
   ui←(IT d)⊸⊏⌾(ig⊸⊏)id                      # Index of definition (⊐ for identifiers)
   lc←(1«b)/dn←b(⊢-T)+`idm∧ac M 2‿2          # Locals Count
-  idd←(id-○(⊏⟜fd)id≠⊸↑ui)∾0¨sp              # Identifier frame depth
+  idd←(id-○(⊏⟜fd)ui)∾0¨sp                   # Identifier frame depth
+  "Can't export from surrounding scope"_err_(ID) xm∧0<id≠⊸↑idd
   idi←(ui⊏(fi⊏fsc)+dn-1)∾((sp⊏fi)⊏3×fx)++⟜(0⊸≤)2+sp⊏xv # Slot within frame
   uu←ip(((1«d)∧0=⊣)∧d(⊣+`⊸⊏PN)0<⊢)⌾(ig⊸⊏)idd# Unused marker
   idor←∾3⥊<id∾sp                            # Identifier bytecode ordering
-- 
cgit v1.2.3