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 ] [