projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[project @ 2000-03-09 06:14:38 by andy]
[ghc-hetmet.git]
/
ghc
/
lib
/
std
/
Ratio.lhs
diff --git
a/ghc/lib/std/Ratio.lhs
b/ghc/lib/std/Ratio.lhs
index
f7593ab
..
cd27634
100644
(file)
--- a/
ghc/lib/std/Ratio.lhs
+++ b/
ghc/lib/std/Ratio.lhs
@@
-80,8
+80,16
@@
approxRational rat eps = simplest (rat-eps) (rat+eps)
nd'' = simplest' d' r' d r
n'' = numerator nd''
d'' = denominator nd''
+
\end{code}
+#else
+
+\begin{code}
+-- Hugs already has this functionally inside its prelude
+\end{code}
#endif
+
+