X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSimplify.lhs;h=121e9b5fdf93eada3f4535d4465c4e6fe98e1403;hb=e8883060ab278b5d4ceda2e75780a302146015c6;hp=d4320248e699e2c67419460d30533fd4bd13a601;hpb=97850bacd6441d9459df0ff105434830f6451d62;p=ghc-hetmet.git

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