From 357f93d3529b186a3a9bc53b3cc996adee670eb6 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 15 Dec 2020 13:22:43 -0500
Subject: =?UTF-8?q?Don't=20allow=20F`=E2=81=BC=20of=20unit?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index fca20c5e..4be31d51 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -637,10 +637,10 @@ Mod1Inverse ← INF˙ _lookup_ ⟨
     ∨, (¬√∘¬)⊘(-˜÷1-⊣)
     ¬, IA∘0⊘(+-1˙)
   ⟩
-  ¨, {𝕏⁼¨       ⊣·IA 0<≡∘⊢}
-  ⌜, {𝕏⁼⌜⊘(IA∘0)⊣·IA 0<≡∘⊢}
-  ˘, {𝕏⁼˘       ⊣·IA 0<=∘⊢}
-  `, {(⊏∾¯1⊸↓𝕏⁼¨1⊸↓)⍟(1<≠)⊘(IA∘0)}
+  ¨, {𝕏⁼¨       ⊣·IX 0<≡∘⊢}
+  ⌜, {𝕏⁼⌜⊘(IA∘0)⊣·IX 0<≡∘⊢}
+  ˘, {𝕏⁼˘       ⊣·IX 0<=∘⊢}
+  `, {(⊏∾¯1⊸↓𝕏⁼¨1⊸↓)⍟(1<≠)⊘(IA∘0)⊣·IX 0<=∘⊢}
 ⟩ {
   0⊸⊑ {𝕏𝕨}⟜𝔽 1⊸⊑
 }
-- 
cgit v1.2.3