aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/r1.bqn2
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}