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

2005-11-28 23:02:04 +00:00
parent 51fc5cb515
commit 3632c7eecf
2 changed files with 13 additions and 3 deletions
--- a/transfer/examples/layout.tr
+++ b/transfer/examples/layout.tr
@@ -3,3 +3,7 @@ x = let x : T = y
     in case y of
         f -> q
         _ -> a
+
+f = \x -> case x of
+	        { r = _ } -> 0
+