[don't try to bind unused values in generated c code
John Meacham <john@repetae.net>**20080304115029] hunk ./C/FromGrin2.hs 119
-        as' <- flip mapM as $ \ (Var v t) -> do
+        as' <- flip mapM (zip [1 :: Int .. ] as) $ \ (ix,(Var v t)) -> do
hunk ./C/FromGrin2.hs 121
-            return (varName v,t')
+            return $ if v == v0 then (name $ 'u':show ix,t') else (varName v,t')
hunk ./C/FromGrin2.hs 260
+        da (Var v _) e | v == v0 = convertBody e