From a436a71a083f410fd58d86e8d228470c68c24b91 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 27 Oct 2022 20:10:07 -0400
Subject: =?UTF-8?q?Keep=20runtime=20from=20passing=20length=20=C2=AF1=20to?=
 =?UTF-8?q?=20GroupLen=20in=20=E2=9F=A8=C2=AF1=E2=9F=A9=E2=8A=94=E2=9F=A8?=
 =?UTF-8?q?=E2=9F=A9?=
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 55cff957..896918d9 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -735,7 +735,7 @@ Reshape←{
 _group←{
   "⊔: Grouping argument must consist of integers" ! 1×´Int⌜𝕩
   "⊔: Grouping argument values cannot be less than ¯1" ! 1×´¯1⊸≤⌜𝕩
-  GL←GroupLen⋄𝕩↩𝕨(-˜⟜≠{GL↩(𝕨⊑𝕩)GL⊢⋄𝕨↑𝕩}⊢)⍟(0⊘⊣)𝕩
+  GL←GroupLen⋄𝕩↩𝕨(-˜⟜≠{GL↩(0⌈𝕨⊑𝕩)GL⊢⋄𝕨↑𝕩}⊢)⍟(0⊘⊣)𝕩
   d←(l←GL𝕩)GroupOrd𝕩
   i←0⋄(𝔽d⊏˜{(i+↩𝕩)⊢i⊸+⌜↕𝕩})⌜l
 }
-- 
cgit v1.2.3