From ab15eaeeebad5a5936446ae4df0e71b288567271 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 22 Jun 2024 09:38:38 -0400 Subject: [PATCH] Length-1 reverse is a no-op --- src/builtins/sfns.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index 72e157db..5877da7a 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -1059,7 +1059,7 @@ static u64 bit_reverse(u64 x) { B reverse_c1(B t, B x) { if (isAtm(x) || RNK(x)==0) thrM("⌽: Argument cannot be a unit"); usz n = *SH(x); - if (n==0) return x; + if (n<=1) return x; u8 xl = cellWidthLog(x); u8 xt = arrNewType(TY(x)); if (xl<=6 && (xl>=3 || xl==0)) {