Use runtime Match instead of === to compare functions component-wise

1 files changed, 13 insertions, 13 deletions

diff --git a/src/r.bqn b/src/r.bqn
index b4f07497..91b222c5 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -729,6 +729,19 @@ Identity ← {𝕏0} ("´: Identity not found"!0˙) _lookup_ ⟨
   '>',0 , '≥',1
 ⟩
 
+structPrimClass ← {(∾𝕩)_glyphLookup_((/∾≠)≠⌜𝕩)} ⥊⌜ ⟨
+  '⊢'‿'⊣'‿'˜'‿'∘'‿'○'‿'⊸'‿'⟜'‿'⊘'‿'◶'
+  '='‿'≠'‿'≢'
+  '<'
+  '≍'
+  '↕'‿'/'‿'»'‿'«'‿'⊔'
+  '⥊'‿'↑'‿'↓'‿'⌽'‿'⍉'‿'⊏'‿'⊑'
+# >
+# ∾
+# ˘⎉¨⌜
+# ⚇
+⟩
+
 IA ← "⁼: Inverse failed"⊸!
 IX ← "⁼: Inverse does not exist"⊸!
 INF← "⁼: Inverse not found"!0˙
@@ -824,16 +837,3 @@ FuncInverse ← (⊑ ⊣◶⟨
 ⟩ 1⊸↓) {Decompose𝕩}
 Inverse ← Type◶(3‿1‿2/{⊢⊣𝕩IX∘≡⊢}‿FuncInverse‿("Cannot invert modifier"!0˙))
 ⁼ ↩ {𝕗 (≢∧INF˙⊸≢)◶0‿(5‿_inv_≢0‿¯2⊏Decompose∘⊢)◶⊢‿{𝕏_inv_(𝕎_invChk_𝕏)} Inverse 𝕗}
-
-structPrimClass ← {(∾𝕩)_glyphLookup_((/∾≠)≠¨𝕩)} ⥊¨ ⟨
-  '⊢'‿'⊣'‿'˜'‿'∘'‿'○'‿'⊸'‿'⟜'‿'⊘'‿'◶'
-  '='‿'≠'‿'≢'
-  '<'
-  '≍'
-  '↕'‿'/'‿'»'‿'«'‿'⊔'
-  '⥊'‿'↑'‿'↓'‿'⌽'‿'⍉'‿'⊏'‿'⊑'
-# >
-# ∾
-# ˘⎉¨⌜
-# ⚇
-⟩