From 3a6334cddc9db27a08019c82fb10b5e00b659854 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 23 Jan 2021 20:36:27 -0500
Subject: Fix fill handling for data operands to Each or Table

---
 src/r.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 5174b8fd..f2894a1e 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -170,7 +170,7 @@ First ← (0<≠)◶⟨Fill,0⊸⊑⟩ Deshape
 
 IsPure ← {d←Decompose𝕩 ⋄ 2⊸≤◶⟨≤⟜0, 1(𝕊d⊑˜1⊸+)⊸×´·↕1-˜≠∘d⟩0⊑d}
 _fillByPure_←{
-  𝕘 {(𝕨HomFil𝕩)_fillBy_𝕨}⍟(IsPure⊣) 𝕗
+  𝕘 (3≤Type∘⊣)◶⟨{𝕨Fill𝕏},{(𝕨HomFil𝕩)_fillBy_𝕨}⍟(IsPure⊣)⟩ 𝕗
 }
 
 ¨ ↩ {𝕨𝔽⌜⊘(𝔽_eachd)_fillByPure_𝔽○ToArray𝕩}
-- 
cgit v1.2.3