From e8883060ab278b5d4ceda2e75780a302146015c6 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 17 Oct 2005 11:09:51 +0000
Subject: [PATCH] [project @ 2005-10-17 11:09:51 by simonpj] Comments only

---
 ghc/compiler/simplCore/Simplify.lhs |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index d432024..121e9b5 100644
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -1325,9 +1325,10 @@ rebuildCase env scrut case_bndr alts cont
   = knownCon env (LitAlt lit) [] case_bndr alts cont
 
   | otherwise
-  = prepareAlts scrut case_bndr alts		`thenSmpl` \ (better_alts, handled_cons) -> 
+  = 	-- Prepare the alternatives.
+    prepareAlts scrut case_bndr alts		`thenSmpl` \ (better_alts, handled_cons) -> 
 	
-	-- Deal with the case binder, and prepare the continuation;
+	-- Prepare the continuation;
 	-- The new subst_env is in place
     prepareCaseCont env better_alts cont	`thenSmpl` \ (floats, (dup_cont, nondup_cont)) ->
     addFloats env floats			$ \ env ->	
@@ -1344,7 +1345,7 @@ rebuildCase env scrut case_bndr alts cont
 	res_ty' = contResultType dup_cont
     in
 
-	-- Deal with variable scrutinee
+	-- Deal with case binder
     simplCaseBinder env scrut case_bndr 	`thenSmpl` \ (alt_env, case_bndr') ->
 
 	-- Deal with the case alternatives
-- 
1.7.10.4