diff options
| -rw-r--r-- | tests/012/infix.tl | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/tests/012/infix.tl b/tests/012/infix.tl index 10b98930..b93ca3bb 100644 --- a/tests/012/infix.tl +++ b/tests/012/infix.tl @@ -76,6 +76,14 @@ (quadratic-roots 1 0 -4) (2.0 -2.0) (quadratic-roots 1 2 1) (-1.0 -1.0)) +(defvar *compiling* t) + +(compile-only + (set *compiling* nil)) + +(defmacro unless-compiling (form) + (unless *compiling* form)) + (ifx (mtest (1 cons 2) (1 . 2) @@ -84,11 +92,20 @@ (1 cons 2 * 2 + 3 * 3) (1 . 13) (1 cons 2 * 2 + 3 * 3 cons 29) :error (1 cons (2 * 2 + 3 * 3) cons 29) (1 13 . 29) - (1 cons 2 list* (2 + 2) (3 + 3) nil) (1 2 4 6))) + (1 cons 2 list* (2 + 2) (3 + 3) nil) (1 2 4 6)) + + (mtest + (list 1 2) (1 2) + (list 2 + 2) (4) + (list list 2 + 2) ((4))) + + (unless-compiling + (test + (list list 2 2) :error))) (defun fft (data nn isign) (ifx - (let (n mmax m j istep i + (let (n mmax m j istep wtemp wpr wpi wr wi theta tempr tempi (data (copy data))) (n := nn << 1) |