From 490038afb5abb6af8b2f1f46b83a7993e6be316d Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 11 Feb 2022 22:07:39 -0500
Subject: Don't expose non-exported variables in bqn.bqn namespace
 implementation

---
 test/cases/namespace.bqn | 1 +
 vm.bqn                   | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/test/cases/namespace.bqn b/test/cases/namespace.bqn
index 5040093f..d4397fed 100644
--- a/test/cases/namespace.bqn
+++ b/test/cases/namespace.bqn
@@ -30,6 +30,7 @@
 # Dot
 5  % {a⇐5}.a
 !  % {a⇐5}.b
+!  % {a⇐5⋄b←6}.b
 1  % {a⇐1⋄2+a}.a
 5  % (c←{a⇐𝕩}5).a
 4  % 1⊑e←3‿{e⇐4}.e‿5
diff --git a/vm.bqn b/vm.bqn
index 20738cd1..76e1282a 100644
--- a/vm.bqn
+++ b/vm.bqn
@@ -21,7 +21,7 @@ MakeEnv ← { 𝕊p‿v‿n‿e:
   program ⇐ p.program
   vars ⇐ program⊸MakeVar¨ (ns⥊¯1) ∾ n
   MakeNS ⇐ {𝕤
-    v ← @ ⊣´¨ n ⊔ ns↓vars  # Lookup table
+    v ← @ ⊣´¨ n ⊔○(e⊸/) ns↓vars  # Lookup table
     Field ⇐ {𝕨𝕊i:
       cross ← 𝕨 { 𝕨1⊘≡𝕩 ? ⊢ ; ⊑ 𝕩.names ⊐ ⊏⟜𝕨.names } program
       (Cross i) ⊑ v
-- 
cgit v1.2.3