From d47cedb1659a1bf41f4267df3505d689537be18e Mon Sep 17 00:00:00 2001 From: dzaima Date: Wed, 6 Nov 2024 22:24:25 +0200 Subject: [PATCH] some cleanup --- src/builtins/fns.c | 1 - src/builtins/select.c | 2 +- src/load.c | 2 +- 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/builtins/fns.c b/src/builtins/fns.c index 68362b06..567b96f9 100644 --- a/src/builtins/fns.c +++ b/src/builtins/fns.c @@ -5,7 +5,6 @@ #include "../utils/talloc.h" #include "../utils/each.h" #include "../builtins.h" -#include "../nfns.h" NOINLINE B intRange16(ux s, ux n) { // s+↕n with i16arr result diff --git a/src/builtins/select.c b/src/builtins/select.c index 5a8aa803..1182c30a 100644 --- a/src/builtins/select.c +++ b/src/builtins/select.c @@ -913,12 +913,12 @@ B select_rows_B(B x, ux csz, ux cam, B inds) { // consumes inds,x; ⥊ inds⊸ ux in = IA(inds); if (in == 0) return taga(emptyArr(x, 1)); - u8 ie = TI(inds,elType); if (in == 1) { B w = IGetU(inds,0); if (!isF64(w)) goto generic; B r = select_cells_single(WRAP(o2i64(w), csz, thrF("⊏: Indexing out-of-bounds (%R∊𝕨, %s≡≠𝕩)", w, csz)), x, cam, csz, 1, false); decG(x); decG(inds); return r; } + u8 ie = TI(inds,elType); if (csz<=2? ie!=el_bit : csz<=128? ie>el_i8 : !elInt(ie)) { inds = num_squeeze(inds); ie = TI(inds,elType); diff --git a/src/load.c b/src/load.c index 06731e41..4d6ff9f7 100644 --- a/src/load.c +++ b/src/load.c @@ -31,7 +31,7 @@ GLOBAL u64 mm_heapAlloc; // [ // type, // 0: function; 1: 1-modifier; 2: 2-modifier // immediateness, // 0: non-immediate; 1: immediate -// ambivalentIndex OR [monadicIndices, dyadicIndices], // indexes into body data array +// ambivalentIndex OR [...caseIndices], // indexes into body data array; cases being some set of monadic, dyadic, and inverses // ]* // ], // [ // body data