[don't rename empty ids to non-empty ones
John Meacham <john@repetae.net>**20060420051218] hunk ./E/SSimplify.hs 164
-        tell (fvs',fromList $ map tvrIdent (litBinds l))
+        tell (fvs',fromList $ map tvrIdent (litBinds l'))
hunk ./E/SSimplify.hs 509
-        n' <- uniqueName n
+        n' <- if n == 0 then return 0 else uniqueName n