change ERROR: words from throw-foo back to foo.

[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 d7cdfe47c289487f11ebd1e0470154e01d76bd1d..b887b55a5345fe405a7caf2624625721dd96dfe2 100644 (file)
--- a/extra/math/transforms/fft/fft.factor
+++ b/extra/math/transforms/fft/fft.factor
@@ -39,10 +39,10 @@ PRIVATE>
 ERROR: not-enough-data ;
 
 : fft ( seq -- seq' )
-    [ throw-not-enough-data ] [ f (fft) ] if-empty ;
+    [ not-enough-data ] [ f (fft) ] if-empty ;
 
 : ifft ( seq -- seq' )
-    [ throw-not-enough-data ] [ t (fft) ] if-empty ;
+    [ not-enough-data ] [ t (fft) ] if-empty ;
 
 : correlate ( x y -- z )
     [ fft ] [ reverse fft ] bi* v* ifft ;