Fix nested ¨ handling in structural Under

1 files changed, 1 insertions, 1 deletions

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}