From c11499cef8ad335bd443f320ab2e100ac7ee15fb Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 18 Jan 2021 20:53:26 -0500
Subject: Check non-principal argument rank in search functions

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

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index d072d318..e86bbea3 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -605,6 +605,7 @@ _search←{ # 0 for ∊˜, 1 for ⊐
   {
     c←1-˜=𝕨
     "p⊐𝕩 or 𝕨∊p: p must have rank at least 1" ! 0≤c
+    "p⊐n or n∊p: Rank of n must be at least cell rank of p" ! c≤=𝕩
     𝕨 ∧○(8<≠∘⥊)◶⟨
       (0<≠𝕨)◶⟨0⎉c∘⊢, Red≢⌜○((0<c)◶⟨⊢,<⎉c⟩)⟩
       { g←⌽⍒𝕨 ⋄ i←g⊏˜0⌈1-˜(g⊏𝕨)⍋𝕩 ⋄ (≠𝕨)(⊣+i⊸-⊸×)⍟ind(i⊏𝕨)≡⎉c𝕩 }
-- 
cgit v1.2.3