[make sure we recurse into let bodies when doing grin devolution
John Meacham <john@repetae.net>**20070522051727] hunk ./Grin/Devolve.hs 31
-            let nonTail = snd $ mconcatMap collectFuncs (body : map (lamExp . funcDefBody) defs)
+            let nonTail = expNonNormal lt
hunk ./Grin/Devolve.hs 33
-                z fd@FuncDef { funcDefName = name, funcDefBody = Tup as :-> r }
+                z fd@FuncDef { funcDefName = name, funcDefBody = ~(Tup as) :-> r }
hunk ./Grin/Devolve.hs 43
-            return $  updateLetProps lt { expDefs = rmaps, expBody = proc body }
+            mapExpExp f $  updateLetProps lt { expDefs = rmaps, expBody = proc body }