From: simonpj <unknown>
Date: Thu, 1 Aug 2002 12:50:31 +0000 (+0000)
Subject: [project @ 2002-08-01 12:50:31 by simonpj]
X-Git-Tag: nhc98-1-18-release~923
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=900abdfd859116754902581f9c47029e23ac6fef;p=ghc-base.git

[project @ 2002-08-01 12:50:31 by simonpj]
Add parens to make precence clear
---

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 9601209..699deaa 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -669,13 +669,13 @@ data (:*:) a b = a :*: b
 \begin{code}
 divInt# :: Int# -> Int# -> Int#
 x# `divInt#` y#
-	-- careful NOT to overflow if we do any additional arithmetic
+	-- Be careful NOT to overflow if we do any additional arithmetic
 	-- on the arguments...  the following  previous version of this
 	-- code has problems with overflow:
 --    | (x# ># 0#) && (y# <# 0#) = ((x# -# y#) -# 1#) `quotInt#` y#
 --    | (x# <# 0#) && (y# ># 0#) = ((x# -# y#) +# 1#) `quotInt#` y#
-    | (x# ># 0#) && (y# <# 0#) = (x# -# 1#) `quotInt#` y# -# 1#
-    | (x# <# 0#) && (y# ># 0#) = (x# +# 1#) `quotInt#` y# -# 1#
+    | (x# ># 0#) && (y# <# 0#) = ((x# -# 1#) `quotInt#` y#) -# 1#
+    | (x# <# 0#) && (y# ># 0#) = ((x# +# 1#) `quotInt#` y#) -# 1#
     | otherwise                = x# `quotInt#` y#
 
 modInt# :: Int# -> Int# -> Int#