From 171de83f2181d28c45cec01613bb6d576f286763 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 4 Apr 2022 21:46:40 -0400
Subject: =?UTF-8?q?Fix=20nested=20=C2=A8=20handling=20in=20structural=20Un?=
 =?UTF-8?q?der?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r1.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 31cf77fa..167b9f51 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -397,7 +397,7 @@ under←{
   InitS ← {¯1‿⟨𝕩⟩‿0‿⟨0,0⟩ _s}
   Nest ← {
     d←0⋄r←0 ⋄ SD ← {d⌈↩IsArray𝕩⋄𝕩}
-    a ← Decompose⊸(1⊸⊑⊸((0<·≠0⊑⊣)◶⟨SD 2⊑⊣,{r↩1⋄𝕩}⟩) ⍟(StructD⊣)) _perv 𝕩
+    a ← Decompose⊸(1⊸⊑⊸((0<·≠0⊑⊣)◶⟨{r⌈↩1⊑3⊑𝕨⋄SD 2⊑𝕨},{r↩1⋄𝕩}⟩) ⍟(StructD⊣)) _perv 𝕩
     ⟨⟩‿@‿a‿⟨d,r⟩ _s
   }
   Es ← {f‿a‿i‿q←𝕩⋄{f‿a‿𝕩‿q _s}⌜i}
-- 
cgit v1.2.3