From d8d54df67d6a6837cd5c07bf1f6ee87e061ef1c0 Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 18 Oct 2001 10:03:58 +0000 Subject: [PATCH] [project @ 2001-10-18 10:03:58 by simonpj] Comments only --- ghc/compiler/simplCore/Simplify.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs index d32dd41..09b8cb0 100644 --- a/ghc/compiler/simplCore/Simplify.lhs +++ b/ghc/compiler/simplCore/Simplify.lhs @@ -480,7 +480,7 @@ simplLazyBind env top_lvl is_rec bndr bndr' rhs rhs_se -- y* = E; x = case (scc y) of {...} -- Either we must be careful not to float demanded non-values, or -- we must use exprIsValue for the test, which ensures that the - -- thing is non-strict. I think. The WARN below tests for this + -- thing is non-strict. I think. The WARN below tests for this. else if exprIsTrivial rhs2 || exprIsValue rhs2 then -- There's a subtlety here. There may be a binding (x* = e) in the -- floats, where the '*' means 'will be demanded'. So is it safe -- 1.7.10.4