projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1998-01-08 18:03:08 by simonm]
[ghc-hetmet.git]
/
ghc
/
lib
/
ghc
/
PrelNum.lhs
diff --git
a/ghc/lib/ghc/PrelNum.lhs
b/ghc/lib/ghc/PrelNum.lhs
index
041214d
..
4344060
100644
(file)
--- a/
ghc/lib/ghc/PrelNum.lhs
+++ b/
ghc/lib/ghc/PrelNum.lhs
@@
-192,7
+192,7
@@
instance Integral Int where
a@(I# _) `quotRem` b@(I# _) = (a `quotInt` b, a `remInt` b)
-- OK, so I made it a little stricter. Shoot me. (WDP 94/10)
a@(I# _) `quotRem` b@(I# _) = (a `quotInt` b, a `remInt` b)
-- OK, so I made it a little stricter. Shoot me. (WDP 94/10)
- -- following chks for zero divisor are non-standard (WDP)
+ -- Following chks for zero divisor are non-standard (WDP)
a `quot` b = if b /= 0
then a `quotInt` b
else error "Integral.Int.quot{PreludeCore}: divide by 0\n"
a `quot` b = if b /= 0
then a `quotInt` b
else error "Integral.Int.quot{PreludeCore}: divide by 0\n"
@@
-716,7
+716,7
@@
numericEnumFromThenTo n m p = takeWhile (if m >= n then (<= p) else (>= p))
%*********************************************************
\begin{code}
%*********************************************************
\begin{code}
-data (Integral a) => Ratio a = !a :% !a deriving (Eq)
+data (Eval a, Integral a) => Ratio a = !a :% !a deriving (Eq)
type Rational = Ratio Integer
\end{code}
type Rational = Ratio Integer
\end{code}