[project @ 2002-11-08 09:04:35 by simonpj]

---------------------------------
	Tiny H98 fix to numericEnumFromThenTo
	---------------------------------

This was a late fix to the H98 report: it only affects
	[a,b..c]
where a=b, which isn't exactly common

diff --git a/GHC/Real.lhs b/GHC/Real.lhs
index 239ab16..edee350 100644 (file)
--- a/GHC/Real.lhs
+++ b/GHC/Real.lhs
@@ -154,7 +154,7 @@ numericEnumFromThenTo   :: (Ord a, Fractional a) => a -> a -> a -> [a]
 numericEnumFromThenTo e1 e2 e3 = takeWhile pred (numericEnumFromThen e1 e2)
                                where
                                 mid = (e2 - e1) / 2
-                                pred | e2 > e1   = (<= e3 + mid)
+                                pred | e2 >= e1  = (<= e3 + mid)
                                      | otherwise = (>= e3 + mid)
 \end{code}