math.transforms.fft: hah, once-power-of-2, always-power-of-2.

diff --git a/extra/math/transforms/fft/fft.factor b/extra/math/transforms/fft/fft.factor
index 14ee7381383374e8b27a2b7b39a9993b838cafcc..b887b55a5345fe405a7caf2624625721dd96dfe2 100644 (file)
--- a/extra/math/transforms/fft/fft.factor
+++ b/extra/math/transforms/fft/fft.factor
@@ -21,8 +21,8 @@ DEFER: (fft)
 :: (fast-fft) ( seq inverse? -- seq' )
     seq length :> N
     N 1 = [ seq ] [
-        seq even-indices inverse? (fft)
-        seq odd-indices inverse? (fft)
+        seq even-indices inverse? (fast-fft)
+        seq odd-indices inverse? (fast-fft)
         inverse? 1 -1 ? 2pi * N /
         [ * cis * ] curry map-index!
         [ [ + inverse? [ 2 / ] when ] 2map ]
@@ -32,7 +32,7 @@ DEFER: (fft)
 
 : (fft) ( seq inverse? -- seq' )
     over length power-of-2?
-    [ (fast-fft) ] [ (slow-fft) ] if ; inline recursive
+    [ (fast-fft) ] [ (slow-fft) ] if ; inline
 
 PRIVATE>