BREAKING: More consistent Under fill handling; don't retain fill with ⌾⊢

1 files changed, 2 insertions, 2 deletions

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 ← {