[lisplab-cvs] r126 - src/fft

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Tue Jan  5 05:30:22 2010
New Revision: 126

Log:
bugfix

Modified:
   src/fft/level3-fft-generic.lisp

Modified: src/fft/level3-fft-generic.lisp
==============================================================================
--- src/fft/level3-fft-generic.lisp	(original)
+++ src/fft/level3-fft-generic.lisp	Tue Jan  5 05:30:22 2010
@@ -61,10 +61,11 @@
          (cols (cols m))
          (fc (floor cols 2))
          (cc (ceiling cols 2)))      
-    (fmat (type-of m) (list rows cols) (i j) 
-      (mref m 
-            (if (< i fr) (+ i cr) (- i fr))
-            (if (< j fc) (+ j cc) (- j fc))))))
+    (fmat (type-of m) (list rows cols)  
+	  (lambda (i j) 
+	    (mref m 
+		  (if (< i fr) (+ i cr) (- i fr))
+		  (if (< j fc) (+ j cc) (- j fc)))))))
 
 (defmethod ifft-shift ((m matrix-base))
   (let* ((rows (rows m))
@@ -73,7 +74,8 @@
          (cols (cols m))
          (fc (floor cols 2))
          (cc (ceiling cols 2)))      
-    (fmat (type-of m) (list rows cols) (i j) 
-      (mref m 
-            (if (< i cr) (+ i fr) (- i cr))
-            (if (< j cc) (+ j fc) (- j cc))))))
+    (fmat (type-of m) (list rows cols) 
+	  (lambda (i j) 
+	    (mref m 
+		  (if (< i cr) (+ i fr) (- i cr))
+		  (if (< j cc) (+ j fc) (- j cc)))))))