[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 (file)
--- 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