From f5388fbdfa97bfb918199c578c8eec78c036b1a9 Mon Sep 17 00:00:00 2001 From: dzaima Date: Sun, 4 Jul 2021 05:00:56 +0300 Subject: [PATCH] =?UTF-8?q?depth=20check=20for=20=E2=8A=94?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/sfns.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index 3f115ec5..16ca2345 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -595,7 +595,7 @@ B group_c1(B t, B x) { return c1(rt_group, x); } B group_c2(B t, B w, B x) { - if (isArr(w)&isArr(x) && rnk(w)==1 && rnk(x)==1) { + if (isArr(w)&isArr(x) && rnk(w)==1 && rnk(x)==1 && depth(w)==1) { usz wia = a(w)->ia; usz xia = a(x)->ia; if (wia-xia > 1) thrF("โŠ”: โ‰ ๐•จ must be either โ‰ ๐•ฉ or one bigger (%sโ‰กโ‰ ๐•จ, %sโ‰กโ‰ ๐•ฉ)", wia, xia);