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

[ghc-hetmet.git] / ghc / lib / required / Complex.lhs

diff --git a/ghc/lib/required/Complex.lhs b/ghc/lib/required/Complex.lhs
index adcdc59..573beb7 100644 (file)
--- 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}