projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8a3fbd4
)
[project @ 1997-07-25 21:28:01 by sof]
author
sof
<unknown>
Fri, 25 Jul 1997 21:28:01 +0000
(21:28 +0000)
committer
sof
<unknown>
Fri, 25 Jul 1997 21:28:01 +0000
(21:28 +0000)
phase phix
ghc/lib/required/Complex.lhs
patch
|
blob
|
history
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}