From 87f2dfdd057f7caefa08594dac04d0858427d72a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 22 Jan 2021 15:16:21 -0500
Subject: Fix first of empty array in reference implementations

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

diff --git a/spec/reference.bqn b/spec/reference.bqn
index 4079b5da..ede5cfbd 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -167,6 +167,7 @@ Pick1←{
 }
 Pickd←(∨´∘⥊IsArray¨∘⊣)◶Pick1‿{Pickd⟜𝕩¨𝕨}
 Pick←IsArray◶⥊‿⊢⊸Pickd
+First←(0<≠)◶⟨Fill,0⊸⊑⟩∘Deshape
 
 match←{¬∘(0⊑𝕨)◶(1⊑𝕨)‿𝕩}´⟨
   ⟨≠○IsArray , 0⟩
@@ -178,7 +179,7 @@ match←{¬∘(0⊑𝕨)◶(1⊑𝕨)‿𝕩}´⟨
 
 Depth←IsArray◶0‿{1+0⌈´Depth¨⥊𝕩}
 
-⊑ ↩ (0¨∘≢)⊸Pick    ⊘ Pick
+⊑ ↩ First          ⊘ Pick
 ⥊ ↩ Deshape        ⊘ Reshape
 ↕ ↩ Range
 ◶ ↩ {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩}  # Same definition, new Pick
-- 
cgit v1.2.3