[give foreign imports of C addresses a proper name
John Meacham <john@repetae.net>**20060228035329] hunk ./E/FromHs.hs 327
-    cDecl (HsForeignDecl _ i@(Import {}) HS.Primitive _ n _) = result where 
+    cDecl (HsForeignDecl _ i@(Import {}) HS.Primitive _ n _) = result where
hunk ./E/FromHs.hs 341
-        hvar       = head $ freeNames $ freeVars rt
-        var        = tVr hvar st
+        newId      = head $ freeNames $ freeVars rt
+        uvar       = tVr newId st
+        var        = tVr (nameToInt name) ty
hunk ./E/FromHs.hs 346
-        result     = expr $ eStrictLet var (EPrim prim [] st) (ELit (LitCons cn [EVar var] rt))
+        result     = expr $ eStrictLet uvar (EPrim prim [] st) (ELit (LitCons cn [EVar uvar] rt))