Commit 0a277a76 authored by qrczak's avatar qrczak
Browse files

[project @ 2001-09-12 11:05:34 by qrczak]

Fix comment.
parent e4f6c050
......@@ -746,7 +746,7 @@ simplRhs top_lvl float_ubx rhs_ty rhs rhs_se thing_inside
-- Float lets if (a) we're at the top level
-- or (b) the resulting RHS is one we'd like to expose
--
-- NB: the test used to say "exprIsValue", but that caused a strictness bug.
-- NB: the test used to say "exprIsCheap", but that caused a strictness bug.
-- x = let y* = E in case (scc y) of { T -> F; F -> T}
-- The case expression is 'cheap', but it's wrong to transform to
-- y* = E; x = case (scc y) of {...}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment