From f3c63d3887514a7822b6c95071ed5679fa8fdbac Mon Sep 17 00:00:00 2001 From: dzaima Date: Fri, 13 Sep 2024 22:09:56 +0300 Subject: [PATCH] =?UTF-8?q?use=20reshape=5Fone=20for=20c=C2=A8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/md1.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index e9590467..406d1ca4 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -51,9 +51,8 @@ B each_c1(Md1D* d, B x) { B f = d->f; } else { usz ia = IA(x); if (isMd(f) && ia>0) { decR(x); thrM("Calling a modifier"); } - MAKE_MUT(rm, ia); - mut_fill(rm, 0, f, ia); - r = mut_fcd(rm, x); + r = taga(arr_shCopy(reshape_one(ia, inc(f)), x)); + decG(x); } if (EACH_FILLS) return homFil1(f, r, xf);