From e6120f541fe2e085bb0a81ac2e514e55582d9a91 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 7 Nov 2021 19:38:02 -0500
Subject: =?UTF-8?q?Handle=20=F0=9D=95=8A=CB=9C=E2=81=BC=20case=20in=20bloc?=
 =?UTF-8?q?ks=20with=20SetInv=20left=20argument?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 8d24ec61..2dc58d67 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -7,7 +7,7 @@
 Decompose ← {0‿𝕩}
 PrimInd ← {𝕩}
 SetPrims ← {Decompose‿PrimInd ↩ 𝕩}
-SetInv   ← {inverse 𝕏↩}
+SetInv   ← {inverse 𝕏↩ ⋄ {swapInverse 𝕏↩}𝕨}
 
 IsArray ← 0=Type
 IsAtom  ← 1≤Type
@@ -862,7 +862,7 @@ SwapInverse ← INF _lookup_ ⟨
 ¨ ↩ _each
 Mod1Inverse ← INF˙ _lookup_ ⟨
   '⁼', {𝕏_invChk_(𝕏{i←Inverse𝕗⋄𝕨I𝕩})}⍟((4=0⊸⊑)◶⟨1,¬·'⁼'_isGlyph 2⊸⊑⟩Decompose)
-  '˜', SwapInverse
+  '˜', {SwapInverse𝕩}
   '¨', {𝕏⁼¨                     ⊣·IX 0<≡∘⊢}
   '⌜', {𝕏⁼⌜⊘(IA∘0)              ⊣·IX 0<≡∘⊢}
   '˘', {(IX∘IsArray⊸⊢𝕏⁼)˘       ⊣·IX 0<=∘⊢}
-- 
cgit v1.2.3