-- License : BSD-style (see the file libraries/base/LICENSE)
--
-- Maintainer : libraries@haskell.org
--- Stability : provisional
+-- Stability : stable
-- Portability : portable
--
-- Standard functions on rational numbers
import GHC.Real -- The basic defns for Ratio
#endif
+#ifdef __HUGS__
+import Hugs.Prelude(Ratio(..), (%), numerator, denominator)
+#endif
+
+#ifdef __NHC__
+import Ratio (Ratio(..), (%), numerator, denominator, approxRational)
+#else
+
-- -----------------------------------------------------------------------------
-- approxRational
nd'' = simplest' d' r' d r
n'' = numerator nd''
d'' = denominator nd''
-
+#endif