From 9cb82af14df44d8f882dc45d039654ee48793154 Mon Sep 17 00:00:00 2001 From: dzaima Date: Tue, 1 Jun 2021 16:13:19 +0300 Subject: [PATCH] =?UTF-8?q?decrement=20=F0=9D=95=A8=20of=20=E2=80=A2intern?= =?UTF-8?q?al.ListVariations?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/internal.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/builtins/internal.c b/src/builtins/internal.c index 50507ac6..cdd01d8c 100644 --- a/src/builtins/internal.c +++ b/src/builtins/internal.c @@ -61,19 +61,21 @@ B info_c1(B t, B x) { B listVariations_c2(B t, B w, B x) { if (!isArr(x)) thrM("•internal.ListVariations: 𝕩 must be an array"); + if (!isArr(w) || rnk(w)!=1) thrM("•internal.ListVariations: 𝕨 must be a list"); usz wia = a(w)->ia; BS2B wgetU = TI(w).getU; - bool c_incr=false, c_changeFill=false; + bool c_incr=false, c_rmFill=false; for (usz i = 0; i < wia; i++) { u32 c = o2c(wgetU(w, i)); if (c=='i') c_incr=true; - else if (c=='f') c_changeFill=true; + else if (c=='f') c_rmFill=true; else thrF("internal.ListVariations: Unknown option '%c' in 𝕨", c); } + dec(w); B xf = getFillQ(x); - bool ah = c_changeFill || noFill(xf); + bool ah = c_rmFill || noFill(xf); bool ai32=false, af64=false, ac32=false; usz xia = a(x)->ia; BS2B xgetU = TI(x).getU;