Extend fast Join-to to rank 0 in addition to 1

1 files changed, 1 insertions, 1 deletions

diff --git a/src/r.bqn b/src/r.bqn
index be2df8e6..054e6421 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -240,7 +240,7 @@ _onAxes_←{
 Select←ToArray⊸(SelSub _onAxes_ 1)
 ⊏ ← 0⊸Select       ⊘ Select
 
-JoinTo←∨○(1≠=)◶∾‿{
+JoinTo←∨○(1<=)◶(∾○⥊)‿{
   s←𝕨Pair○≢𝕩
   a←1⌈´k←≠⌜s
   ! ∧´1≥a-k