From 12e0d53cd98f42e5b60534efe4a2f06e1eedd64e Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sun, 19 Feb 1989 18:09:08 +0000
Subject: [PATCH] Fix problem with duplicate definition of PI.

---
 v7/src/microcode/fft.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/v7/src/microcode/fft.c b/v7/src/microcode/fft.c
index 8a26a482a..21e4b8d5c 100644
--- a/v7/src/microcode/fft.c
+++ b/v7/src/microcode/fft.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/fft.c,v 9.24 1988/08/15 20:46:29 cph Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/fft.c,v 9.25 1989/02/19 18:09:08 jinx Exp $ */
 
 /* Fourier Transforms (pas)
    1. DFT (FFT),
@@ -52,6 +52,10 @@ MIT in each case. */
    Note: Seibert's Forward DFT is Oppenheim's Backward DFT.
    */
 
+#ifdef PI
+#undef PI
+#endif
+
 #define PI    3.141592653589793238462643
 #define TWOPI 6.283185307179586476925287
 /* Abramowitz and Stegun */
-- 
2.25.1