From f1972fc408a0eb4e03d5aa2207dc81434e93ecbb Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Mon, 10 Mar 2025 12:57:25 -0400 Subject: [PATCH] Faster stride-1 check --- src/builtins/cells.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/builtins/cells.c b/src/builtins/cells.c index 6d3450b9..6ccc7d39 100644 --- a/src/builtins/cells.c +++ b/src/builtins/cells.c @@ -556,7 +556,7 @@ B for_cells_c1(B f, u32 xr, u32 cr, u32 k, B x, u32 chr) { // F⎉cr x; array x, if (!isFun(f)) break; u8 frtid = RTID(f); if (frtid==n_rtack) return x; - if (1 == shProd(xsh, k+1, xr)) { + if (cr==1 || cam*m == IA(x)) { if (TI(x,elType)==el_bit && (isPervasiveDyExt(f)||frtid==n_ltack)) { B r = scan_rows_bit(frtid, x, m); if (!q_N(r)) return r; }