From c22c93cc8edeab9a16edd630a352d30b77650227 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 2 May 2025 14:33:43 -0700 Subject: infix: use superfix in fft test case. * tests/012/infix.tl (fft): express loop condition more succinctly as a relational compound. --- tests/012/infix.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/012/infix.tl b/tests/012/infix.tl index 566b5d25..c3767272 100644 --- a/tests/012/infix.tl +++ b/tests/012/infix.tl @@ -115,7 +115,7 @@ (swap (data[j]) (data[i])) (swap (data[j + 1]) (data[i + 1]))) (m := nn) - (while (m >= 2 && j > m) + (while (2 <= m < j) (j -= m) (m >>= 1)) (j += m)) -- cgit v1.2.3