diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2025-05-02 14:33:43 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2025-05-02 14:33:43 -0700 |
| commit | c22c93cc8edeab9a16edd630a352d30b77650227 (patch) | |
| tree | 80bb1df22831ce6d988d68fe9894b5042a060de1 | |
| parent | 056830f1fb9684240def89809daeb860e529f777 (diff) | |
| download | txr-c22c93cc8edeab9a16edd630a352d30b77650227.tar.gz txr-c22c93cc8edeab9a16edd630a352d30b77650227.tar.bz2 txr-c22c93cc8edeab9a16edd630a352d30b77650227.zip | |
infix: use superfix in fft test case.
* tests/012/infix.tl (fft): express loop condition
more succinctly as a relational compound.
| -rw-r--r-- | tests/012/infix.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |