From 4a273a3f008fdd68453bceef846b30cee7938fa6 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 8 Nov 2021 08:49:09 -0500
Subject: Make SetInv return Inverse instead of SwapInverse

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

diff --git a/src/r1.bqn b/src/r1.bqn
index 2dc58d67..f2330b2b 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -7,7 +7,7 @@
 Decompose ← {0‿𝕩}
 PrimInd ← {𝕩}
 SetPrims ← {Decompose‿PrimInd ↩ 𝕩}
-SetInv   ← {inverse 𝕏↩ ⋄ {swapInverse 𝕏↩}𝕨}
+SetInv   ← {{swapInverse 𝕏↩}𝕨 ⋄ inverse 𝕏↩}
 
 IsArray ← 0=Type
 IsAtom  ← 1≤Type
-- 
cgit v1.2.3