infix: test cases for prefix phony.

* test/012/infix.tl: New tests.
(*compiling*) New variable.
(unless-compiling): New macro.
One :error test elicits a warning during the compiled version
of the test that is hard to squelch, so we just remove
it from the compiled test case.
(fft): Remove unused variable i; all for loops locally bind i.

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)