From 4fbf17eb5e9dcb3aac891832eabf63c715df4feb Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 30 Jan 2021 11:44:10 -0500
Subject: =?UTF-8?q?Require=20support=20for=20dyadic=20=E2=9F=9C=20in=20Und?=
 =?UTF-8?q?o?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 00bfc2b8..80bc0119 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -785,7 +785,7 @@ Mod2Inverse ← INF˙ _lookup_ ⟨
   ⍟, Int∘⊢◶⟨IA∘0˙,0⊸≤◶{𝕎⍟(-𝕩)_invChk_(𝕎⍟𝕩)}‿{𝕎⍟(-𝕩)}⟩
   ⊘, {(𝕎⁼)⊘(𝕏⁼)}
   ⊸, IsConstant∘⊣ ⊣◶{INF⊘𝕏}‿⊢ {𝕎⊸(𝕏⁼)}
-  ⟜, IsConstant∘⊢◶⟨INF˙,{(𝕩𝕎˜⁼⊢)⊘(IA∘0)}⟩
+  ⟜, {(𝕨IsConstant∘⊢◶⟨IA∘0˙,{𝕩𝕎˜⁼⊢}⟩𝕩)⊘(𝕏⁼𝕎⁼)}
 ⟩ {
   0‿2⊸⊏ {𝕏´𝕨}⟜𝔽 1⊸⊑
 }
-- 
cgit v1.2.3