From 826f6a4c0a4dc09e452d4b2e61202a0c94f819fe Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 3 May 2022 20:43:53 -0400
Subject: =?UTF-8?q?BREAKING:=20More=20consistent=20Under=20fill=20handling?=
 =?UTF-8?q?;=20don't=20retain=20fill=20with=20=E2=8C=BE=E2=8A=A2?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r1.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index a1980747..5e00e92e 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -505,8 +505,8 @@ under←{
       s⥊(↕l)2⊸⌊◶⟨⊑⟜d,Adv,Adv{(𝕨CM(j-𝕩)⊸+⊑v˙)⌜↕𝕩-1⋄𝕨}⊢⟩¨gl
     }
     _at_ ← {(↕≠𝕩)𝔽⍟((𝔾𝕩)=⊣)¨𝕩}
-    Set ← 0⊸{ (𝕨≥≠root)◶⟨≢⥊(1+𝕨)⊸𝕊_at_(𝕨⊑root˙)∘⥊, Set1⟩ 𝕩 }
-    IsArray∘root◶⟨0⊑v˙, Set⟩ _fillBy_ ⊢ x
+    Set ← 0⊸{ (𝕨≥≠root)◶⟨≢⥊(1+𝕨)⊸𝕊_at_(𝕨⊑root˙)∘⥊, Set1⟩ _fillBy_ ⊢ 𝕩 }
+    IsArray∘root◶⟨0⊑v˙, Set⟩ x
   }
 
   _indRec ← {
-- 
cgit v1.2.3