some cleanup

This commit is contained in:
dzaima 2024-11-06 22:24:25 +02:00
parent 163853439e
commit d47cedb165
3 changed files with 2 additions and 3 deletions

View File

@ -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

View File

@ -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);

View File

@ -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