Fix bug with array right argument to search function

1 files changed, 2 insertions, 2 deletions

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≤=𝕩