[add several more primitive conversions
John Meacham <john@repetae.net>**20061113012625] hunk ./E/ToHs.hs 231
-    _ -> return $ parens $ text "error" <+> tshow (show e)
+    ("catch__",args) -> mapM transE args >>= \args' -> mparen (return $ hsep (text "catch#":args'))
+    ("raiseIO__",args) -> mapM transE args >>= \args' -> mparen (return $ hsep (text "raiseIO#":args'))
+    ("newRef__",args) -> mapM transE args >>= \args' -> mparen (return $ hsep (text "newMVar#":args'))
+    ("readRef__",args) -> mapM transE args >>= \args' -> mparen (return $ hsep (text "readMutVar#":args'))
+    ("writeRef__",args) -> mapM transE args >>= \args' -> mparen (return $ hsep (text "writeMutVar#":args'))
+    _ -> return $ parens $ text "error" <+> tshow ("ToHs.Error: " ++ show e)
hunk ./E/ToHs.hs 262
-transE e = return $ parens $ text "error" <+> tshow (show e)
+transE e = return $ parens $ text "error" <+> tshow ("ToHs.Error: " ++ show e)