From eb06b89fd426c89bf20813ccc614bd8c8be29adb Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 26 Nov 2001 10:27:14 +0000
Subject: [PATCH] [project @ 2001-11-26 10:27:14 by simonpj] Comments only

---
 ghc/compiler/stgSyn/StgSyn.lhs |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/stgSyn/StgSyn.lhs b/ghc/compiler/stgSyn/StgSyn.lhs
index 2de6d62..7fd945a 100644
--- a/ghc/compiler/stgSyn/StgSyn.lhs
+++ b/ghc/compiler/stgSyn/StgSyn.lhs
@@ -210,11 +210,11 @@ This has the same boxed/unboxed business as Core case expressions.
 	(GenStgExpr bndr occ)
 			-- the thing to examine
 
-	(GenStgLiveVars occ) -- Live vars of whole case
-			-- expression; i.e., those which mustn't be
-			-- overwritten
+	(GenStgLiveVars occ) -- Live vars of whole case expression, 
+			-- plus everything that happens after the case
+			-- i.e., those which mustn't be overwritten
 
-	(GenStgLiveVars occ) -- Live vars of RHSs;
+	(GenStgLiveVars occ) -- Live vars of RHSs (plus what happens afterwards)
 			-- i.e., those which must be saved before eval.
 			--
 			-- note that an alt's constructor's
-- 
1.7.10.4