From 3f5ab730a040ce1dbf39cc79daa332b57a9f0cca Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 29 Apr 2021 21:09:29 -0400
Subject: Don't use primitive comparisons for HomFil

---
 src/r1.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index d32df7b5..498784e4 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -267,6 +267,7 @@ SelSub←{
 First ← IsArray◶⟨⊢, (0<≠)◶⟨Fill,0⊸⊑⟩⥊⟩
 
 IsPure ← {d←Decompose𝕩 ⋄ 2⊸≤◶⟨≤⟜0, 1×´·𝕊⌜1↓d˙⟩0⊑d}
+HomFil ← {((𝕎0) Fill 𝕏)⊘𝕏}⍟("=≠≡≢"_glyphLookup_(<⟜4⌜↕5)∘⊣)
 _fillByPure_←{
   𝕘 (3≤Type∘⊣)◶⟨{𝕨Fill𝕏},{(𝕨HomFil𝕩)_fillBy_𝕨}⍟(IsPure⊣)⟩ 𝕗
 }
@@ -614,7 +615,6 @@ GroupGen←{
 + ↩ + _perv
 - ↩ - _perv
 ¬ ← 1+-
-HomFil ← {((𝕎0) Fill 𝕏)⊘𝕏}⍟(+´⟨=,≠,≡,≢⟩=⊣)
 
 ValidateRanks←{
   "⎉ or ⚇: 𝔽 result must have rank at most 1" ! 1≥=𝕩
-- 
cgit v1.2.3