From 43e221b6601223758481515a09dd33db6d7cb0ec Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 27 Dec 2020 21:17:37 -0500
Subject: =?UTF-8?q?Require=20argument=20to=20monadic=20=E2=8A=8F=20to=20ha?=
 =?UTF-8?q?ve=20at=20least=20one=20cell?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index a333b97c..41f836c5 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -152,6 +152,7 @@ _sort ← {(𝕗⊑⟨Cmp,Cmp˜⟩)_grade_𝕗 ⊸ ⊏}
 
 FirstCell←{
   "⊏𝕩: 𝕩 must have rank at least 1" ! 1≤=𝕩
+  "⊏𝕩: 𝕩 cannot have length 0" ! 0<≠𝕩
   (<0) GetCells 𝕩
 }
 SelSub←{
-- 
cgit v1.2.3