diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index 952ed10b..c9b7b492 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -220,6 +220,7 @@ B shape_c2(B t, B w, B x) { if (isF64(x)) { decA(xf); i32 n = (i32)x.f; if (RARE(n!=x.f)) { f64* rp; Arr* r = m_f64arrp(&rp,nia); arr_shSetU(r,nr,sh); for (u64 i=0; itype==t_harr) { B* xp = harr_ptr(x); dec(xp[wi]);