[Comment out the case that seems to be behind #18
Samuel Bronson <naesten@gmail.com>**20090210202122] hunk ./Grin/FromE.hs 511
-            (_,EVar etvr) -> localEvaled [etvr,b] v $ do
-                    as <- mapM cp as
-                    def <- createDef d newNodeVar
-                    return $ e :>>= [v] :-> Return [toVal etvr] :>>= [toVal b] :-> Case v (as ++ def)
+--            (_,EVar etvr) -> localEvaled [etvr,b] v $ do
+--                    as <- mapM cp as
+--                    def <- createDef d newNodeVar
+--                    return $ e :>>= [v] :-> Return [toVal etvr] :>>= [toVal b] :-> Case v (as ++ def)