From c26a1b195e1846126e914875c88cd0a2cb5ef2c2 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 30 Jan 2021 10:59:37 -0500
Subject: =?UTF-8?q?Fix=20permissive=20mixing=20issue=20in=20=CB=98?=
 =?UTF-8?q?=E2=81=BC?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

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