From ba1b853936bf0abd76df5c6bcfc517ff5e38ac11 Mon Sep 17 00:00:00 2001 From: dzaima Date: Sat, 29 Apr 2023 13:13:58 +0300 Subject: [PATCH] =?UTF-8?q?don't=20use=20the=20cell=20appender=20for=20Ari?= =?UTF-8?q?th=E2=8C=9C?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 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 d6fb53aa..5a215841 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -78,10 +78,10 @@ B tbl_c2(Md1D* d, B w, B x) { B f = d->f; r = fc2(f, C2(slash, m_i32(xia), taga(wd)), C2(shape, m_f64(ria), incG(x))); } else if (xia>7) { SGet(w) - M_APD_SH1(rm, wia) + M_APD_TOT(rm, ria) incByG(x, wia); for (usz wi = 0; wi < wia; wi++) APDD(rm, fc2(f, Get(w,wi), x)); - r = taga(APD_SH_GET(rm, 0)); + r = taga(APD_TOT_GET(rm)); } else goto generic; if (RNK(r)>1) { SRNK(r, 0); // otherwise the following arr_shAlloc failing will result in r->sh dangling