make ⊢¨ attempt to squeeze generic arrays in PROPER_FILLS

also make it not segfault on an input without a fill
This commit is contained in:
dzaima 2024-10-09 00:54:22 +03:00
parent b94ba4ed56
commit 0eb7f2e5f4

View File

@ -44,8 +44,8 @@ B each_c1(Md1D* d, B x) { B f = d->f;
else if (isFun(f)) {
u8 rtid = v(f)->flags-1;
if (rtid==n_ltack || rtid==n_rtack) {
if (EACH_FILLS) decG(xf);
return EACH_FILLS || TI(x,arrD1) || IA(x)==0? x : any_squeeze(withFill(x, bi_noFill));
if (EACH_FILLS) dec(xf);
return TI(x,arrD1) || IA(x)==0? x : any_squeeze(EACH_FILLS? x : withFill(x, bi_noFill));
}
r = eachm_fn(f, x, c(Fun,f)->c1);
} else {