From 95690fffb0b7eff84b7e6277533ab021239cbbb8 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 2 May 2022 10:59:43 -0400
Subject: =?UTF-8?q?Fix=20=E2=88=BE=E2=81=BC?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 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 2e9ac199..a1980747 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -898,7 +898,7 @@ PrimInverse ← INF _lookup_ ⟨
   '<', {IX IsArray𝕩⋄IX 0==𝕩⋄0⊑⥊𝕩}⊘(IA∘0)
   '⊢', ⊢
   '⊣', ⊢⊘(⊢⊣IX∘≡)
-  '∾', IA∘0 ⊘ {d←𝕩-○=𝕨⋄IX(0⊸≤∧≤⟜1)d⋄l←d◶1‿≠𝕨⋄IX l≤≠𝕩⋄IX 𝕨≡d◶⟨⊏,l⊸↑⟩𝕩⋄l↓𝕩}
+  '∾', IA∘0 ⊘ {d←𝕩-○=𝕨⋄IX(0⊸≤∧≤⟜1)d⋄l←d◶≠‿1𝕨⋄IX l≤≠𝕩⋄IX (ToArray𝕨)≡d◶⟨l⊸↑,⊏⟩𝕩⋄l↓𝕩}
   '≍', {IX  1 =≠𝕩⋄ ⊏𝕩} ⊘ {IX  2 =≠𝕩⋄IX 𝕨≡ ⊏𝕩⋄1⊏𝕩}
   '⋈', {IX ⟨1⟩≡≢𝕩⋄0⊑𝕩} ⊘ {IX ⟨2⟩≡≢𝕩⋄IX 𝕨≡0⊑𝕩⋄1⊑𝕩}
   '↑', ¯1⊸⊑_invChk_↑ ⊘ (IA∘0)
-- 
cgit v1.2.3