[project @ 2002-07-16 15:47:25 by ross]

[ghc-base.git] / Data / Ratio.hs

diff --git a/Data/Ratio.hs b/Data/Ratio.hs
index 5c58cd5..37dd821 100644 (file)
--- a/Data/Ratio.hs
+++ b/Data/Ratio.hs
@@ -39,6 +39,7 @@ import Prelude
 import GHC.Real                -- The basic defns for Ratio
 #endif
 
+#ifndef __HUGS__
 -- -----------------------------------------------------------------------------
 -- approxRational
 
@@ -76,4 +77,4 @@ approxRational rat eps        =  simplest (rat-eps) (rat+eps)
                                           nd''       =  simplest' d' r' d r
                                           n''        =  numerator nd''
                                           d''        =  denominator nd''
-
+#endif  /* __HUGS__ */