From 4bea572d4bcf166821826c93f8e10fed35370b01 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 28 Dec 2020 22:12:22 -0500
Subject: =?UTF-8?q?Use=20the=20fill=20value=20for=20=E2=8A=91=20of=20empty?=
 =?UTF-8?q?=20array?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 41f836c5..adc9b3eb 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -162,6 +162,7 @@ SelSub←{
   "𝕨⊏𝕩: Indices out of range" ! 1×´⥊ ((-l)⊸≤×l⊸>)⌜ 𝕨
   𝕨 (⊢+l×0>⊢)⌜⊸⊏ 𝕩
 }
+First ← (0<≠)◶⟨GetFill,0⊸⊑⟩ Deshape
 
 _under_←{
   i←↕l←1×´s←≢𝕩
@@ -563,7 +564,7 @@ OccurrenceCount ← ⊐˜(⊢-⊏)⍋∘⍋
 ProgressiveIndexOf ← {𝕨⊐○((≠∾2˙)⥊·≍˘⟜OccurrenceCount𝕨⊸⊐)𝕩}
 
 ⊏ ← FirstCell      ⊘ (ToArray⊸(SelSub _onAxes_ 1))
-⊑ ↩ (0⊑⥊)          ⊘ Pick
+⊑ ↩ First          ⊘ Pick
 ◶ ↩ {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩}  # Same definition, new Pick
 ⁼ ← {Inverse 𝕗}
 
-- 
cgit v1.2.3