[clean out old IORef code now that we use Alloc and Index
John Meacham <john@repetae.net>**20080312233220] hunk ./C/FromGrin2.hs 402
--- IORef's do this
-convertBody (Store v) | tyINode == getType v = do
-    v <- convertVal v
-    (d,tmp) <- (ptrType sptr_t) `newTmpVar`  jhc_malloc (sizeof sptr_t)
-    r <- simpleRet tmp
-    return (d & (dereference tmp =* v) & r)
+-- mutable arrays and iorefs
hunk ./C/FromGrin2.hs 408
-convertBody (Update v z) | getType z == tyINode = do
-    v' <- convertVal v
-    z' <- convertVal z
-    r <- simpleRet emptyExpression
-    return (dereference v' =* z' & r)
hunk ./C/FromGrin2.hs 412
-convertBody (Fetch v) | getType v == TyPtr tyINode  = do
-    v <- convertVal v
-    simpleRet $ dereference v