From 5e6bf0df29f2024fe25201c2f4800860c7e7fecf Mon Sep 17 00:00:00 2001 From: dzaima Date: Mon, 23 Aug 2021 03:05:48 +0300 Subject: [PATCH] =?UTF-8?q?fix=20=E2=86=91=E2=80=BF3=E2=A5=8A3=20once=20mo?= =?UTF-8?q?re?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/sfns.c | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index 2038e10c..46c1b745 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -125,6 +125,7 @@ B shape_c2(B t, B w, B x) { if (tot > USZ_MAX) thrM("⥊: Result too large"); nia = tot; if (fill) { + if (!isArr(x)) x = m_atomUnit(x); Arr* a = take_impl(nia, x); arr_shVec(a); x = taga(a); @@ -552,21 +553,6 @@ B take_c2(B t, B w, B x) { } return taga(a); } - // if (isNum(w) && isArr(x) && rnk(x)==1) { - // i64 v = o2i64(w); - // usz ia = a(x)->ia; - // u64 va = v<0? -v : v; - // if (va>ia) { - // B xf = getFillE(x); - // MAKE_MUT(r, va); mut_init(r, TI(x,elType)); - // mut_copyG(r, v<0? va-ia : 0, x, 0, ia); - // mut_fill(r, v<0? 0 : ia, xf, va-ia); - // dec(x); dec(xf); - // return mut_fv(r); - // } - // if (v<0) return slicev(x, ia+v, -v); - // else return slicev(x, 0, v); - // } return c2(rt_take, w, x); } B drop_c2(B t, B w, B x) {