[make emapEG recurse into the type of EPrim and EError with the right function
John Meacham <john@repetae.net>**20061006115708] hunk ./E/Traverse.hs 8
+    emapEG,
hunk ./E/Traverse.hs 312
-    z (EVar aa) = do aa <- mapmTvr f aa; return $ EVar aa
+    z (EVar aa) = do aa <- mapmTvr g aa; return $ EVar aa
hunk ./E/Traverse.hs 326
-    z (EPrim aa ab ac) = do ab <- mapM f ab;ac <- f ac; return $ EPrim aa ab ac
-    z (EError aa ab) = do ab <- f ab; return $ EError aa ab
+    z (EPrim aa ab ac) = do ab <- mapM f ab;ac <- g ac; return $ EPrim aa ab ac
+    z (EError aa ab) = do ab <- g ab; return $ EError aa ab