From ca078aa60a5c1724eaccf6744a9d59ea1fcc1241 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 15 Dec 2021 08:41:37 -0500
Subject: =?UTF-8?q?Fix=20=E2=8A=91's=20handling=20of=20atom=20in=20nested?=
 =?UTF-8?q?=20=F0=9D=95=A8?=
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 6faf7897..6501c2d4 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -253,7 +253,7 @@ Pick1←{
   i←0⋄𝕨{i↩(𝕩NormIndP𝕨)+𝕩×i}¨s
   i⊑⥊𝕩
 }⟜ToArray
-Pickd←(IsSimple⥊∘⊣)◶{Pickd⟜𝕩⌜𝕨}‿Pick1
+Pickd←IsArray◶⟨1,IsSimple⥊⟩∘⊣◶{Pickd⟜𝕩⌜𝕨}‿Pick1
 Pick←IsArray∘⊣◶Pick0‿Pickd
 
 _multiAxis←{
-- 
cgit v1.2.3