From 2fc6d6c1058e5cff348b675ea1b9005e1587d0dc Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 30 Jun 2021 16:25:07 -0400
Subject: =?UTF-8?q?Fix=20argument=20shapes=20for=20=C2=A8=20in=20=5Fsearch?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r1.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 49c752a9..d99c30f0 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -178,7 +178,7 @@ _search←{ # 0 for ∊˜, 1 for ⊐
         i‿j←(k⊸×⌜↕)⌜n‿lx ⋄ {Red CC⟜𝕩⌜i}⌜j
       }‿{
         g←Reverse⍒𝕨
-        i←g⊏˜(0⌈-⟜1)⌜(g⊏𝕨)⍋𝕩
+        i←g⊏˜(0⌈-⟜1)⌜⥊(g⊏𝕨)⍋𝕩
         adj←ind⊑⟨1⊸-,⊣--⟜n⊸×⟩
         i(⊣ Adj CC○(k⊸×))¨↕lx
       } 𝕩
-- 
cgit v1.2.3