From d6b2e28359a2e0f5f8a0f98782b30d34c18138a1 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 5 Jun 2022 15:06:39 -0400
Subject: Simplify First, since it now errors on empty to match Pick

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

diff --git a/spec/reference.bqn b/spec/reference.bqn
index 4e9a0a88..e2780130 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -165,7 +165,7 @@ Pick1←{
 }
 Pickd←(∨´∘⥊IsArray¨∘⊣)◶Pick1‿{Pickd⟜𝕩¨𝕨}
 Pick←IsArray◶⥊‿⊢⊸Pickd
-First←(0<≠)◶⟨!∘0,0⊸⊑⟩∘Deshape
+First←0⊑Deshape
 
 match←{¬∘(0⊑𝕨)◶(1⊑𝕨)‿𝕩}´⟨
   ⟨≠○IsArray , 0⟩
-- 
cgit v1.2.3