From 5145dd3aa0c02c9fc496d1432fc4410674206e1d Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:31 -0800 Subject: Import Upstream version 3a2 --- fft.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'fft.scm') diff --git a/fft.scm b/fft.scm index 2257e30..feefec8 100644 --- a/fft.scm +++ b/fft.scm @@ -39,7 +39,7 @@ (slib:error 'fft "array length not power of 2" n)) (do ((k 0 (+ 1 k))) ((>= k n) new) - (array-set! new (* (array-ref ara k) scale) (bit-reverse lgn k)))) + (array-set! new (* (array-ref ara k) scale) (reverse-bit-field k 0 lgn)))) (define (dft! ara n dir) (define lgn (integer-length (+ -1 n))) @@ -66,7 +66,7 @@ ;;@dfn{Discrete Fourier Transform} of @var{array}. (define (fft ara) (define n (car (array-dimensions ara))) - (define new (apply create-array ara (array-dimensions ara))) + (define new (apply make-array ara (array-dimensions ara))) (dft! (fft:shuffle&scale new ara n 1) n 1)) ;;@args array @@ -74,7 +74,7 @@ ;;inverse Discrete Fourier Transform of @var{array}. (define (fft-1 ara) (define n (car (array-dimensions ara))) - (define new (apply create-array ara (array-dimensions ara))) + (define new (apply make-array ara (array-dimensions ara))) (dft! (fft:shuffle&scale new ara n (/ n)) n -1)) ;;@noindent -- cgit v1.2.3