From 176152b445c9e759dbca6fdddb1e13d5aabcba4f Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 4 Mar 2023 14:28:22 -0500 Subject: [PATCH] =?UTF-8?q?Handle=20fold-cells=20on=20row=20length=201=20w?= =?UTF-8?q?ith=20=E2=8A=8F=CB=98?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/md1.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index e65f9e2a..6501e2b6 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -357,8 +357,10 @@ B cell_c1(Md1D* d, B x) { B f = d->f; Md1D* fd = c(Md1D,f); u8 rtid = fd->m1->flags-1; if (rtid==n_const) { f=fd->f; goto const_f; } - if ((rtid==n_fold || rtid==n_insert) && TI(x,elType)!=el_B && isPervasiveDy(fd->f) && RNK(x)==2 && SH(x)[1]<=64) { - return fold_rows(fd, x); + if ((rtid==n_fold || rtid==n_insert) && TI(x,elType)!=el_B && isPervasiveDy(fd->f) && RNK(x)==2) { + usz n = SH(x)[1]; + if (n == 1) return select_cells(0, x, 2); + if (n <= 64) return fold_rows(fd, x); } } }