From 47005fec6f720b893e2417995384075e50135c98 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 26 Apr 2021 13:30:34 -0400
Subject: =?UTF-8?q?Fix=20result=20of=20=E2=8A=94=20on=20multiple=20axes=20?=
 =?UTF-8?q?where=20a=20non-leading=20one=20has=20a=20length=20extension?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index b45a5f50..5f51cfcf 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -671,7 +671,7 @@ GroupGen←{
   ld←(Join≢⌜𝕨)-n↑≢𝕩
   "𝕨⊔𝕩: Lengths of 𝕨 must equal to 𝕩, or one more only in a rank-1 component" ! 1∧´(0⊸≤∧≤⟜(r/1=r))ld
   dr←r⌊(0»+`r)⊏ld∾⟨0⟩
-  l←≠⌜𝕨↩⥊⌜𝕨 ⋄ LS←∾⟜(n Cell 𝕩) Reshape 𝕩˙
+  l←dr-˜≠⌜𝕨↩⥊⌜𝕨 ⋄ LS←∾⟜(n Cell 𝕩) Reshape 𝕩˙
   S←⊏⟜(LS⟨1×´l⟩)
   (LS 0⌜𝕨) Fill dr (1≠≠∘⊢)◶⟨S _group○(0⊸⊑), S⌜ ·+⌜⌜´ (⌽×`1»⌽l) × ⊢_group¨⟩ 𝕨
 }
-- 
cgit v1.2.3