Extend ≢ later

1 files changed, 1 insertions, 3 deletions

diff --git a/src/r.bqn b/src/r.bqn
index 0385c9c6..d84c93fb 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -19,7 +19,6 @@ Nat←IsArray◶⟨0⊸≤×⌊⊸=,0⟩
 > ←            (1-≤)
 ⌊ ↩ ⌊        ⊘ (>⊑{𝕨‿𝕩})
 ⌈ ← -∘⌊∘-    ⊘ (<⊑{𝕨‿𝕩})
-≢ ↩ IsArray◶⟨⟩‿≢   # LIMITED to monadic case
 ≠ ← (0<=)◶⟨1⋄0⊑≢⟩  # LIMITED to monadic case
 
 _fold←{
@@ -142,6 +141,7 @@ match←{(0⊑𝕨)◶(1⊑𝕨)‿𝕩}´⟨
 Depth←IsArray◶0‿{1+0(⊣-≤×-)´Depth⌜⥊𝕩}
 
 ≡ ← Depth          ⊘ Match
+≢ ↩ IsArray◶⟨⟩‿≢   ⊘ (1-Match)
 
 Merge←{
   c←≢0⊑⥊𝕩
@@ -188,8 +188,6 @@ Range←{
   IsArray◶I‿M 𝕩
 }
 
-≢ ↩ ≢              ⊘ (¬Match)
-
 
 Pair ← {⟨𝕩⟩} ⊘ {⟨𝕨,𝕩⟩}