[rename arguments to lambdas and pis to temporary names always. as the generated ones are often meaningless and misleading
John Meacham <john@repetae.net>**20061220050707] hunk ./E/Traverse.hs 125
-        (ob,b') <- ntvr f' b
+        (ob,b') <- ntvr False f' b
hunk ./E/Traverse.hs 132
-        ds' <- mapM ( ntvr f' . fst) ds
+        ds' <- mapM ( ntvr False f' . fst) ds
hunk ./E/Traverse.hs 141
-        xs' <-  mapM (ntvr f') xs
+        xs' <-  mapM (ntvr False f') xs
hunk ./E/Traverse.hs 151
-    ntvr fg tv@TVr { tvrIdent = 0, tvrType = t} = do
+    ntvr _ fg tv@TVr { tvrIdent = 0, tvrType = t} = do
hunk ./E/Traverse.hs 154
-    ntvr fg tv@(TVr { tvrIdent = n, tvrType = t}) = do
-        n' <- if n > 0 then uniqueName  n else newName
+    ntvr ralways fg tv@(TVr { tvrIdent = n, tvrType = t}) = do
+        n' <- if n > 0 && (not ralways || odd n) then uniqueName  n else newName
hunk ./E/Traverse.hs 160
-        (n,tv') <- ntvr fg tv
+        (n,tv') <- ntvr True fg tv