[treat IORefs as single element mutable arrays for consistancy.
John Meacham <john@repetae.net>**20070602094952] hunk ./C/Generate.hs 410
-    return $ text "for" <> parens (i <+> equals <+> from <> semi <+> i <> text "++" <> semi <+> i <+> text "<" <+> to) <+> lbrace <$> nest 4 body <$> rbrace
+    return $ text "for" <> parens (i <+> equals <+> from <> semi <+> i <+> text "<" <+> to <> semi <+> i <> text "++" ) <+> lbrace <$> nest 4 body <$> rbrace
hunk ./Grin/DeadCode.hs 50
-    when True $ do
+    when False $ do
hunk ./Grin/FromE.hs 415
-            return $ Store v'
+            --return $ Store v'
+            return $ Alloc { expValue = v', expCount = toUnVal (1::Int), expRegion = region_heap, expInfo = mempty }
hunk ./Grin/FromE.hs 419
-            return $ Fetch r'
+            return $ Fetch (Index r' (toUnVal (0::Int)))
hunk ./Grin/FromE.hs 422
-            return $ Update r' v'
+            return $ Update (Index r' (toUnVal (0::Int))) v'
hunk ./Grin/Grin.hs 124
-    tIntzh = Ty (toAtom "int")
-    tCharzh = Ty (toAtom "HsChar")
-    tStar = Ty (toAtom "*")
+    tIntzh = TyPrim (Op.bits32) -- Ty (toAtom "int")
+    tCharzh = TyPrim (Op.bits32) -- Ty (toAtom "HsChar")
+    --tStar = Ty (toAtom "*")
hunk ./Grin/Lint.hs 201
-        Ty _ <- f offset
+        TyPrim _ <- f offset