From a24bee15a8096a271fb7e54fd5d6386595027714 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 25 Jul 1997 21:28:01 +0000
Subject: [PATCH] [project @ 1997-07-25 21:28:01 by sof] phase phix

---
 ghc/lib/required/Complex.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/ghc/lib/required/Complex.lhs b/ghc/lib/required/Complex.lhs
index adcdc59..573beb7 100644
--- a/ghc/lib/required/Complex.lhs
+++ b/ghc/lib/required/Complex.lhs
@@ -57,6 +57,7 @@ magnitude (x:+y) =  scaleFloat k
 		    where k  = max (exponent x) (exponent y)
 		          mk = - k
 
+phase (0 :+ 0)   = 0		-- SLPJ July 97 from John Peterson
 phase (x:+y)	 =  atan2 y x
 \end{code}
 
-- 
1.7.10.4