[devolve devolved functions in grin
John Meacham <john@repetae.net>**20080324080252] hunk ./Grin/Devolve.hs 42
-            modifyIORef col (++ fsts nmaps)
+            nmaps <- mapM (g . fst) nmaps
+            modifyIORef col (++ nmaps)
hunk ./Grin/Noodle.hs 165
+-- expression (tail called, non tail called)
hunk ./Grin/Noodle.hs 204
-updateLetProps lt@Let { expBody = body, expDefs = defs } = lt { expFuncCalls = (tail Set.\\ myDefs, nonTail Set.\\ myDefs), expNonNormal = notNormal, expIsNormal = Set.null notNormal } where
+updateLetProps lt@Let { expBody = body, expDefs = defs } =
+        lt {
+            expFuncCalls = (tail Set.\\ myDefs, nonTail Set.\\ myDefs),
+            expNonNormal = notNormal,
+            expIsNormal = Set.null notNormal
+            } where
hunk ./Grin/Noodle.hs 213
---    retInfo = filter (`notElem` [myDefs]) concatMap (getReturnInfo . lamExp . funcDefBody) (body:defs)