From fbed5613ace02a2edc54ffc3dfea614526871ffc Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 14 Aug 2020 10:55:04 -0400
Subject: =?UTF-8?q?Extend=20=5Funder=5F=20to=20allow=20=F0=9D=94=BE=20retu?=
 =?UTF-8?q?rning=20an=20element=20(like=20=E2=8A=91)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r.bqn | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/r.bqn b/src/r.bqn
index c4b4651b..60a2ba0f 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -125,8 +125,9 @@ Rot ← {!Int𝕨 ⋄ l←≠𝕩 ⋄ 𝕨-↩l×⌊𝕨÷l ⋄ ((𝕨+⊢-l×(l
 
 _under_←{
   i←↕l←1×´s←≢𝕩
-  v←⥊𝕨𝔽○𝔾𝕩
-  g←Cmp0 _grade_ 0 gi←⥊𝔾s⥊i
+  v←𝕨𝔽○𝔾𝕩 ⋄ gi←𝔾s⥊i
+  n←(IsArray gi)⊑{⟨𝕩⟩}‿⥊ ⋄ v↩N v ⋄ gi↩N gi
+  g←Cmp0 _grade_ 0 gi
   P←(≠g)⊸≤◶⟨(⊑⟜g)⊑gi˜,l⟩
   e←P j←0
   s⥊{e=𝕩}◶⟨⊑⟜(⥊𝕩),{𝕩⋄r←(j⊑g)⊑v⋄e↩P j↩1+j⋄r}⟩⌜i
-- 
cgit v1.2.3