From 0eb7f2e5f47e98979df4886fb24f15a8da67e552 Mon Sep 17 00:00:00 2001 From: dzaima Date: Wed, 9 Oct 2024 00:54:22 +0300 Subject: [PATCH] =?UTF-8?q?make=20=E2=8A=A2=C2=A8=20attempt=20to=20squeeze?= =?UTF-8?q?=20generic=20arrays=20in=20PROPER=5FFILLS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit also make it not segfault on an input without a fill --- src/builtins/md1.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index 406d1ca4..70d89b85 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -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 {