diff --git a/src/builtins/md1.c b/src/builtins/md1.c index e32ae1e0..cd3c4fa0 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -76,6 +76,7 @@ B tbl_c2(Md1D* d, B w, B x) { B f = d->f; if (TI(x,arrD1) && wia>=4 && xia<2560>>arrTypeBitsLog(TY(x))) { Arr* wd = arr_shVec(TI(w,slice)(incG(w), 0, wia)); r = fc2(f, C2(slash, m_i32(xia), taga(wd)), C2(shape, m_f64(ria), incG(x))); + if(RARE(!reusable(r))) r = taga(cpyWithShape(r)); arr_shErase(a(r), 1); } else if (xia>7 && wia>0) { SGet(w)