core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...

[factor.git] / extra / math / transforms / fft / fft.factor

diff --git a/extra/math/transforms/fft/fft.factor b/extra/math/transforms/fft/fft.factor
index b887b55a5345fe405a7caf2624625721dd96dfe2..60e01003495f020191e4b9c2da7602f6d8fe9aed 100644 (file)
--- a/extra/math/transforms/fft/fft.factor
+++ b/extra/math/transforms/fft/fft.factor
@@ -11,8 +11,8 @@ DEFER: (fft)
 ! Discrete Fourier Transform
 :: (slow-fft) ( seq inverse? -- seq' )
     seq length :> N
-    inverse? 1 -1 ? 2pi * N / N iota n*v :> omega
-    N iota [| k |
+    inverse? 1 -1 ? 2pi * N / N <iota> n*v :> omega
+    N <iota> [| k |
         0 seq omega [ k * cis * + ] 2each
         inverse? [ N / ] when
     ] map ; inline