[clean up some predefined names
John Meacham <john@repetae.net>**20100714064312
 Ignore-this: 2998be7fe908d98689bf39daa526f636
] hunk ./src/E/E.hs 64
-    vUnit  = (litCons { litName = vUnit, litArgs = [], litType = tUnit })
+    vUnit  = (litCons { litName = dc_Unit, litArgs = [], litType = tUnit })
hunk ./src/E/E.hs 143
-eToList (ELit LitCons { litName = n, litArgs = [e,b] }) | vCons == n = eToList b >>= \x -> return (e:x)
-eToList (ELit LitCons { litName = n, litArgs = [] }) | vEmptyList == n = return []
+eToList (ELit LitCons { litName = n, litArgs = [e,b] }) | dc_Cons == n = eToList b >>= \x -> return (e:x)
+eToList (ELit LitCons { litName = n, litArgs = [] }) | dc_EmptyList == n = return []
hunk ./src/E/E.hs 147
-toString (ELit LitCons { litName = n, litArgs = [], litType = t }) = if vEmptyList == n && t == tString then return "" else fail "not a string"
+toString (ELit LitCons { litName = n, litArgs = [], litType = t }) = if dc_EmptyList == n && t == tString then return "" else fail "not a string"
hunk ./src/E/Values.hs 101
-eCons x xs = ELit $ litCons { litName = vCons, litArgs = [x,xs], litType = getType xs }
-eNil t = ELit $ litCons { litName = vEmptyList, litArgs = [], litType = t }
+eCons x xs = ELit $ litCons { litName = dc_Cons, litArgs = [x,xs], litType = getType xs }
+eNil t = ELit $ litCons { litName = dc_EmptyList, litArgs = [], litType = t }
hunk ./src/Name/Names.hs 32
-instance ConNames Name where
---    vTrue = dc_True
---    vFalse = dc_False
-    vEmptyList = dc_EmptyList
-    vUnit = dc_Unit
-    vCons = dc_Cons
-
-
--- Tuple handling
-
hunk ./src/Name/Names.hs 49
-
-
--- The constructors
-
-
hunk ./src/Name/Names.hs 50
-tc_Int__ = toName TypeConstructor  ("Jhc.Prim","Int__")
-tc_Array__ = toName TypeConstructor  ("Jhc.Array","Array__")
-tc_MutArray__ = toName TypeConstructor  ("Jhc.Array","MutArray__")
-tc_Ref__ = toName TypeConstructor ("Data.IORef","Ref__")
-
-
-tc_Boolzh = toName TypeConstructor ("Jhc.Order","Bool#")
-tc_List = toName TypeConstructor  ("Jhc.Prim","[]")
hunk ./src/Name/Names.hs 54
+s_Bang = toName SortName ("Jhc@","!")
+s_Quest = toName SortName ("Jhc@","?")
+s_QuestQuest = toName SortName ("Jhc@","??")
+s_StarBang = toName SortName ("Jhc@","*!")
hunk ./src/data/names.txt 4
-JumpPoint Jhc.JumpPoint.JumpPoint
-Char      Jhc.Prim.Char
-IO        Jhc.Prim.IO
-World__   Jhc.Prim.World__
-Bool      Jhc.Order.Bool
-Target    Jhc.Options.Target
-Ptr       Jhc.Addr.Ptr
-FunPtr    Jhc.Addr.FunPtr
-Ratio     Jhc.Num.Ratio
-Unit      Jhc.Basics.()
-Float     Jhc.Float.Float
-Double    Jhc.Float.Double
-CLong     Foreign.C.Types.CLong
-CSChar    Foreign.C.Types.CSChar
-CUChar    Foreign.C.Types.CUChar
-CUShort   Foreign.C.Types.CUShort
-CULong    Foreign.C.Types.CULong
+Ref__      Data.IORef.Ref__
+MutArray__ Jhc.Array.MutArray__
+List       Jhc.Prim.[]
+JumpPoint  Jhc.JumpPoint.JumpPoint
+Char       Jhc.Prim.Char
+IO         Jhc.Prim.IO
+World__    Jhc.Prim.World__
+Int__      Jhc.Prim.Int__
+Array__    Jhc.Array.Array__
+Bool       Jhc.Order.Bool
+Boolzh     Jhc.Order.Bool#
+Target     Jhc.Options.Target
+Ptr        Jhc.Addr.Ptr
+FunPtr     Jhc.Addr.FunPtr
+Ratio      Jhc.Num.Ratio
+Unit       Jhc.Basics.()
+Float      Jhc.Float.Float
+Double     Jhc.Float.Double
+CLong      Foreign.C.Types.CLong
+CSChar     Foreign.C.Types.CSChar
+CUChar     Foreign.C.Types.CUChar
+CUShort    Foreign.C.Types.CUShort
+CULong     Foreign.C.Types.CULong