[reenable local functions in grin, be less verbose in debugging info
John Meacham <john@repetae.net>**20070516174346] hunk ./E/LambdaLift.hs 7
+import Text.Printf
hunk ./E/LambdaLift.hs 12
+import Doc.PPrint
+import E.Annotate
hunk ./E/LambdaLift.hs 15
-import E.Inline
hunk ./E/LambdaLift.hs 16
+import E.Inline
hunk ./E/LambdaLift.hs 23
-import E.Annotate
hunk ./E/LambdaLift.hs 28
+import Support.CanType
hunk ./E/LambdaLift.hs 31
-import Support.CanType
+import Util.HasSize
hunk ./E/LambdaLift.hs 33
-import Doc.PPrint
hunk ./E/LambdaLift.hs 152
-    mapM_ Prelude.print [ (tvr { tvrIdent = id },"Not Lifted") | (id,False) <- vs ]
-    return (fromList [ x | (x,False) <- vs])
+    let nlset =  (fromList [ x | (x,False) <- vs])
+    printf "%i lambdas not lifted\n" (size nlset)
+    return nlset
hunk ./E/LambdaLift.hs 165
-    noLift <- return $ mempty `asTypeOf` noLift
-    putStrLn "noLift"
-    Prelude.print noLift