From: simonpj <unknown>
Date: Mon, 17 Oct 2005 11:09:51 +0000 (+0000)
Subject: [project @ 2005-10-17 11:09:51 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~163
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=e8883060ab278b5d4ceda2e75780a302146015c6;p=ghc-hetmet.git

[project @ 2005-10-17 11:09:51 by simonpj]
Comments only
---

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