fix ⟨1‿2⟩⊸⊏˘ mat
This commit is contained in:
parent
3716162e69
commit
2c36a3e399
@ -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_rtack: dec(w); return x;
|
||||||
case n_ltack: return const_cells(x, xk, xsh, w, chr);
|
case n_ltack: return const_cells(x, xk, xsh, w, chr);
|
||||||
case n_select:
|
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);
|
assert(xr > 1);
|
||||||
ux wia = IA(w);
|
ux wia = IA(w);
|
||||||
ShArr* rsh = m_shArr(xr);
|
ShArr* rsh = m_shArr(xr);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user