fftw: fix for ifft1d.

diff --git a/extra/fftw/fftw.factor b/extra/fftw/fftw.factor
index b1ac9edf2c58e7d8bad720e617b441a007f00be9..d1d271f0eced07b630dc0115456cfcef8bc63608 100644 (file)
--- a/extra/fftw/fftw.factor
+++ b/extra/fftw/fftw.factor
@@ -39,7 +39,8 @@ PRIVATE>
 
 : fft1d ( seq -- seq' ) FFTW_FORWARD (fft1d) ;
 
-: ifft1d ( seq -- seq' ) FFTW_BACKWARD (fft1d) ;
+: ifft1d ( seq -- seq' )
+    [ FFTW_BACKWARD (fft1d) ] [ length v/n ] bi ;
 
 : correlate1d ( x y -- z )
     [ fft1d ] [ reverse fft1d ] bi* v* ifft1d ;