From: sof <unknown>
Date: Fri, 25 Jul 1997 21:28:01 +0000 (+0000)
Subject: [project @ 1997-07-25 21:28:01 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~238
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a24bee15a8096a271fb7e54fd5d6386595027714;p=ghc-hetmet.git

[project @ 1997-07-25 21:28:01 by sof]
phase phix
---

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}