From: simonpj <unknown>
Date: Fri, 13 Sep 2002 08:54:44 +0000 (+0000)
Subject: [project @ 2002-09-13 08:54:44 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1686
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7e2009cf9778956a1ffe4a5757344feaa15d34d5;p=ghc-hetmet.git

[project @ 2002-09-13 08:54:44 by simonpj]
Correct comments
---

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index 3992a64..f48d732 100644
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -616,8 +616,6 @@ rnStmt :: RdrNameStmt
 -- The thing list of names returned is the list returned by the
 -- thing_inside, plus the binders of the arguments stmt
 
--- Because of mutual recursion we have to pass in rnExpr.
-
 rnStmt (ParStmt stmtss) thing_inside
   = mapFvRn rnStmts stmtss		`thenRn` \ (bndrstmtss, fv_stmtss) ->
     let binderss = map fst bndrstmtss