[project @ 2002-09-03 09:40:51 by simonmar]

(%) should be infixl 7 (thanks to Jon Fairbairn for pointing out the omission)

MERGE TO STABLE

diff --git a/GHC/Real.lhs b/GHC/Real.lhs
index e1696cc..a656c5f 100644 (file)
--- a/GHC/Real.lhs
+++ b/GHC/Real.lhs
@@ -26,6 +26,7 @@ import GHC.Show
 
 infixr 8  ^, ^^
 infixl 7  /, `quot`, `rem`, `div`, `mod`
+infixl 7  %
 
 default ()             -- Double isn't available yet, 
                        -- and we shouldn't be using defaults anyway