From 2c3b852c8cbff9277a4eb27b0d38fcce3aef0ac5 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 9 Aug 2012 08:56:47 -0700
Subject: [PATCH] math.transforms.fft: specify algorithm.

---
 extra/math/transforms/fft/fft.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/extra/math/transforms/fft/fft.factor b/extra/math/transforms/fft/fft.factor
index 2835585910..1756efd96d 100644
--- a/extra/math/transforms/fft/fft.factor
+++ b/extra/math/transforms/fft/fft.factor
@@ -6,6 +6,7 @@ IN: math.transforms.fft
 
 <PRIVATE
 
+! Discrete Fourier Transform
 :: (slow-fft) ( seq inverse? -- seq' )
     seq length :> N
     inverse? 1 -1 ? 2pi * i* N / :> O
@@ -14,6 +15,7 @@ IN: math.transforms.fft
         inverse? [ N / ] when
     ] map ; inline
 
+! Cooley–Tukey Algorithm
 :: (fft) ( seq inverse? -- seq' )
     seq length :> N
     N 1 = [ seq ] [