[add routines for directly adding Idsets as bound names
John Meacham <john@repetae.net>**20060409074936] hunk ./Name/Id.hs 10
+    addBoundNamesIdMap,
+    addBoundNamesIdSet,
hunk ./Name/Id.hs 49
-    deriving(Typeable,Monoid,HasSize,SetLike,BuildSet (Id,a),MapLike Id a,Functor,FunctorM)
+    deriving(Typeable,Monoid,HasSize,SetLike,BuildSet (Id,a),MapLike Id a,Functor,FunctorM,Show)
hunk ./Name/Id.hs 98
+addBoundNamesIdSet nset = IdNameT $ do
+    modify (\ (used,bound) -> (nset `union` used, nset `union` bound) )
+
+addBoundNamesIdMap nmap = IdNameT $ do
+    modify (\ (used,bound) -> (nset `union` used, nset `union` bound) ) where
+        nset = idMapToIdSet nmap
+