From 2c36a3e3997dce5785f6ad09afa6a5b715179a33 Mon Sep 17 00:00:00 2001 From: dzaima Date: Fri, 9 Aug 2024 00:36:07 +0300 Subject: [PATCH] =?UTF-8?q?fix=20=E2=9F=A81=E2=80=BF2=E2=9F=A9=E2=8A=B8?= =?UTF-8?q?=E2=8A=8F=CB=98=20mat?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/cells.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/builtins/cells.c b/src/builtins/cells.c index c6b8e38c..8cac5b71 100644 --- a/src/builtins/cells.c +++ b/src/builtins/cells.c @@ -711,7 +711,7 @@ NOINLINE B for_cells_SA(B f, B w, B x, ur xcr, ur xr, u32 chr) { // w⊸F⎉xcr case n_rtack: dec(w); return x; case n_ltack: return const_cells(x, xk, xsh, w, chr); case n_select: - if (isArr(w) && RNK(w)==1 && xcr==1) { + if (isArr(w) && RNK(w)==1 && xcr==1 && TI(w,arrD1)) { // TODO handle RNK(w)!=1 assert(xr > 1); ux wia = IA(w); ShArr* rsh = m_shArr(xr);