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);