From e2b45e33e1ac76ae43b6cf490819154dcaa04b08 Mon Sep 17 00:00:00 2001 From: dzaima Date: Sat, 24 Dec 2022 17:29:48 +0200 Subject: [PATCH] simplify splitCells --- src/builtins/search.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/builtins/search.c b/src/builtins/search.c index 2f4a9886..3b97d37a 100644 --- a/src/builtins/search.c +++ b/src/builtins/search.c @@ -50,9 +50,9 @@ static NOINLINE B2 splitCells(B n, B p, bool indexOf) { if (isAtm(n)) n = m_hunit(n); ur nr = RNK(n); if (nr < pr-1) thrF("%U: Rank of %U must be at least the cell rank of %U (%H ≡ ≢𝕨, %H ≡ ≢𝕩)", SYMB, ARG_N, ARG_P, indexOf? p : n, indexOf? n : p); - ur cr = (pr>nr? nr : pr-1); + ur cr = pr-1; n = toKCells(n, nr-cr); - p = toKCells(p, pr-cr); + p = toKCells(p, 1); assert(RNK(p)<=1); return (B2){.n=n, .p=p};