[code cleanups
John Meacham <john@repetae.net>**20060816095140] hunk ./E/LetFloat.hs 3
-    coalesceLets,
hunk ./E/LetFloat.hs 41
-
hunk ./E/LetFloat.hs 258
-
-coalesceLets :: Stats -> E -> IO E
-coalesceLets stats e = liftM fst $ traverse travOptions { pruneRecord = varElim stats } f mempty mempty e where
-    f n (x,xs) = do
-        (x',xs') <- lift $ doCoalesce stats (x,xs)
-        return $ foldl EAp x' xs'
-
hunk ./lib/base/Jhc/Addr.hs 24
-plusAddr addr off = wordPtrToAddr $ addrToWordPtr addr + fromInt off
+plusAddr addr off = wordPtrToAddr (addrToWordPtr addr + fromInt off)