From 4d4f0c1fadf92b2418b8b7dd2c53258e35183ddb Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 1 May 2021 17:24:14 -0400
Subject: Fix bug with array right argument to search function

---
 src/r1.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 9782c699..0c737f9c 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -184,8 +184,8 @@ _search←{ # 0 for ∊˜, 1 for ⊐
         adj←ind⊑⟨1⊸-,⊣--⟜n⊸×⟩
         i(⊣ Adj CC○(k⊸×))¨↕lx
       } 𝕩
-    } ToArray𝕩
-  }
+    } 𝕩
+  }⟜ToArray
 }
 _self←{
   "∊𝕩 or ⊐𝕩: 𝕩 must have rank at least 1" ! 1≤=𝕩
-- 
cgit v1.2.3