From 7d8e3be9529e624f228926fe8abfa8e7294dd9ed Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 20 Dec 2021 11:27:11 -0500
Subject: =?UTF-8?q?Allow=20monadic=20=C2=B4=CB=9D=20to=20be=20used=20on=20?=
 =?UTF-8?q?an=20array=20in=20structural=20Under?=
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')

diff --git a/src/r1.bqn b/src/r1.bqn
index 0910ba63..0aadb95b 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -481,7 +481,7 @@ structFn ← {
   Mon←{𝕏⊘E} ⋄ Dy←{E⊘𝕏}
   k‿v ← Split2 ⟨
     "⊢⊣˜∘○⊸⟜⊘◶",  ⊢  # ˙ handled specially
-    "´˝",         {r←𝕩⋄{E⊘(IsArray∘⊢◶⟨E,𝕗_r⟩)}}
+    "´˝",         {r←𝕩⋄{IsArray∘⊢◶⟨E,𝕗_r⟩}}
     "=≠≢",        Mon 1 _sfn_ 0
     "<",          Mon 0 _sfn_ 1
     "≍",          Mon 1 _sfn_ 1  # Dyad combines
-- 
cgit v1.2.3