From 09231a35b513400bfd0b4f04dd0aba3a96f21daa Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 24 Apr 2021 18:22:02 -0400
Subject: Use runtime Match instead of === to compare functions component-wise

---
 src/r.bqn | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'src/r.bqn')

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_((/∾≠)≠¨𝕩)} ⥊¨ ⟨
-  '⊢'‿'⊣'‿'˜'‿'∘'‿'○'‿'⊸'‿'⟜'‿'⊘'‿'◶'
-  '='‿'≠'‿'≢'
-  '<'
-  '≍'
-  '↕'‿'/'‿'»'‿'«'‿'⊔'
-  '⥊'‿'↑'‿'↓'‿'⌽'‿'⍉'‿'⊏'‿'⊑'
-# >
-# ∾
-# ˘⎉¨⌜
-# ⚇
-⟩
-- 
cgit v1.2.3