From 8924da5482d91ad21f56428ea5673560f2a265e7 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 23 Jan 2021 21:01:30 -0500
Subject: Fill handling for structural Under and shifts

---
 src/r.bqn | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index f2894a1e..af3ef84f 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -213,7 +213,7 @@ _under_←{
     _at_ ← {(↕≠𝕩) 𝔽⍟((𝔾𝕩)=⊣)¨ 𝕩}
     Set ← 0⊸{ (𝕨≥≠root)◶⟨≢⥊(1+𝕨)⊸𝕊_at_(𝕨⊑root˙)∘⥊, Set1⟩ 𝕩 }
     IsArray∘root◶⟨1⊑0⊑𝕨˙, Set⟩ 𝕩
-  }
+  } _fillBy_ ⊢
   IsStructErr◶⟨Struct⟜(𝕩˙), {𝕏val}·Inverse𝔾˙⟩ val GetInserts ind
 }
 Recompose ← ⊣◶⟨
@@ -524,8 +524,8 @@ Replicate ← IsArray∘⊣◶{
 ↕ ↩ Range          ⊘ Windows
 ⌽ ← Reverse        ⊘ (Rot _onAxes_ 0)
 / ← Indices        ⊘ Replicate
-» ← FC⊸ShiftBefore ⊘ ShiftBefore
-« ← FC⊸ShiftAfter  ⊘ ShiftAfter
+» ← FC⊸ShiftBefore ⊘ ShiftBefore _fillBy_ (⊢⊘IF)
+« ← FC⊸ShiftAfter  ⊘ ShiftAfter  _fillBy_ (⊢⊘IF)
 
 _group←{
   "⊔: Grouping argument must consist of integers" ! ∧´Int⌜𝕩
-- 
cgit v1.2.3