[perform store-update optimization
John Meacham <john@repetae.net>**20060405060623] hunk ./Grin/Optimize.hs 77
+    prefer (Update _ v@Var {}) = return v
+    prefer (Update v@Var {} _) = return v
hunk ./Grin/Simplify.hs 283
+    f (Store t :>>= v :-> Update  v' w :>>= lr) | v == v' = do
+        mtick "Optimize.optimize.store-update"
+        f (Store w :>>= v :-> Return unit :>>= lr)
hunk ./Main.hs 660
+        x <- opt "AE Optimization 1" x
hunk ./Main.hs 662
+        lintCheckGrin x
+        x <- deadCode stats (grinEntryPoints x) x
+        lintCheckGrin x
hunk ./Main.hs 667
-        x <- opt "AE Optimization" x
+        x <- opt "AE Optimization 2" x
+        x <- unboxReturnValues x
+        lintCheckGrin x
+        x <- deadCode stats (grinEntryPoints x) x
+        lintCheckGrin x
+        x <- opt "AE Optimization 3" x