Transfer compiler: extended variable removal to variables bound in case expressions.

This commit is contained in:
bringert
2005-11-28 23:02:04 +00:00
parent 51fc5cb515
commit 3632c7eecf
2 changed files with 13 additions and 3 deletions

View File

@@ -3,3 +3,7 @@ x = let x : T = y
in case y of
f -> q
_ -> a
f = \x -> case x of
{ r = _ } -> 0