From 5758853ccbd61dc3d04d787f27d0fbf60391f720 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 22 Jun 2024 21:57:59 -0400 Subject: [PATCH] Can't call fold-rows special code with reduction length 0 --- 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 316faa8e..7d921dca 100644 --- a/src/builtins/cells.c +++ b/src/builtins/cells.c @@ -461,7 +461,7 @@ B for_cells_c1(B f, u32 xr, u32 cr, u32 k, B x, u32 chr) { // F⎉cr x, with arr if (rtid==n_const) { f=fd->f; goto const_f; } usz *sh = SH(x); if ((rtid==n_fold || rtid==n_insert) && TI(x,elType)!=el_B - && isFun(fd->f) && 1==shProd(sh, k+1, xr)) { + && isFun(fd->f) && 1==shProd(sh, k+1, xr) && sh[k] > 0) { usz m = sh[k]; u8 frtid = v(fd->f)->flags-1; if (m==1 || frtid==n_ltack) return select_cells(0 , x, cam, k, false);