fix ⟨1‿2⟩⊸⊏˘ mat

This commit is contained in:
dzaima 2024-08-09 00:36:07 +03:00
parent 3716162e69
commit 2c36a3e399

View File

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