Disable F´˘ special code when cell rank isn't 1
This commit is contained in:
parent
5758853ccb
commit
e952e4ca3e
@ -460,7 +460,7 @@ B for_cells_c1(B f, u32 xr, u32 cr, u32 k, B x, u32 chr) { // F⎉cr x, with arr
|
|||||||
u8 rtid = fd->m1->flags-1;
|
u8 rtid = fd->m1->flags-1;
|
||||||
if (rtid==n_const) { f=fd->f; goto const_f; }
|
if (rtid==n_const) { f=fd->f; goto const_f; }
|
||||||
usz *sh = SH(x);
|
usz *sh = SH(x);
|
||||||
if ((rtid==n_fold || rtid==n_insert) && TI(x,elType)!=el_B
|
if (((rtid==n_fold && cr==1) || rtid==n_insert) && TI(x,elType)!=el_B
|
||||||
&& isFun(fd->f) && 1==shProd(sh, k+1, xr) && sh[k] > 0) {
|
&& isFun(fd->f) && 1==shProd(sh, k+1, xr) && sh[k] > 0) {
|
||||||
usz m = sh[k];
|
usz m = sh[k];
|
||||||
u8 frtid = v(fd->f)->flags-1;
|
u8 frtid = v(fd->f)->flags-1;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user