[add routines for converting to/from Ids
John Meacham <john@repetae.net>**20050928083143] hunk ./Name.hs 19
+    toId,
+    fromId,
hunk ./Name.hs 24
+import Char
hunk ./Name.hs 26
+import Monad(liftM)
+
hunk ./Name.hs 29
-import HsSyn
-import Char
-import VConsts
hunk ./Name.hs 30
-import GenUtil
hunk ./Name.hs 32
+import GenUtil
+import HsSyn
+import VConsts
hunk ./Name.hs 108
+            | otherwise = error "can't happen"
hunk ./Name.hs 227
+
+toId :: Name -> Int
+toId x = atomIndex (toAtom x)
+
+fromId :: Monad m => Int -> m Name
+fromId i = liftM Name (intToAtom i)
+
+
+