From a1fb609dd33aa604020350ecbb90b9b5f26dec61 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 27 Dec 2022 10:18:42 -0500
Subject: =?UTF-8?q?Don't=20allow=20=E2=9F=A8=E2=9F=A9=20=E2=8C=BD=E2=81=BC?=
 =?UTF-8?q?=20atom?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src/r1.bqn')

diff --git a/src/r1.bqn b/src/r1.bqn
index 896918d9..b173b892 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -912,7 +912,7 @@ PrimInverse ← INF _lookup_ ⟨
   '↑', ¯1⊸⊑_invChk_↑ ⊘ (IA∘0)
   '↓',  0⊸⊑_invChk_↓ ⊘ (IA∘0)
   '↕', ≢_invChk_↕ ⊘ (IA∘0)  # Should trace edge and invChk
-  '⌽', ⌽ ⊘ (-⊸⌽)
+  '⌽', ⌽ ⊘ (-⊸⌽ ⊣ IX∘IsArray∘⊢)
   '⍉', TransposeInv ⊘ ReorderAxesInv
   '/', IndicesInv ⊘ (IA∘0)
   '⊔', GroupIndsInv ⊘ GroupInv
-- 
cgit v1.2.3