Hugs-only changes: explicit imports + use approxRational.
#ifdef __GLASGOW_HASKELL__
import GHC.Arr
#endif
+
+#ifdef __HUGS__
+import Hugs.Prelude( Ix(..) )
+#endif
import GHC.Real -- The basic defns for Ratio
#endif
-#ifndef __HUGS__
+#ifdef __HUGS__
+import Hugs.Prelude(Ratio(..), (%), numerator, denominator)
+#endif
+
-- -----------------------------------------------------------------------------
-- approxRational
nd'' = simplest' d' r' d r
n'' = numerator nd''
d'' = denominator nd''
-#endif /* __HUGS__ */