[move code around, put unboxed tuples in DataConstructors
John Meacham <john@repetae.net>**20051003073045] hunk ./DataConstructors.hs 85
+getConstructor n _ | Just v <- fromUnboxedNameTuple n, DataConstructor <- nameType n = return $ snd $ tunboxedtuple v
+getConstructor n _ | Just v <- fromUnboxedNameTuple n, TypeConstructor <- nameType n = return $ fst $ tunboxedtuple v
hunk ./DataConstructors.hs 92
-tunboxedtuple n = [typeCons,dataCons] where
+tunboxedtuple n = (typeCons,dataCons) where
hunk ./DataConstructors.hs 106
-            conType = eStar,
+            conType = eHash,
hunk ./Grin/Grin.hs 421
-instance ConNames Val where
-    vTrue = NodeC (toAtom "CPrelude.True") []
-    vFalse = NodeC (toAtom "CPrelude.False") []
-    vUnit =  NodeC (toAtom "CPrelude.()") []
-    vOrdering x = NodeC (toAtom $ "CPrelude." ++ show x) []
hunk ./Grin/Val.hs 1
-module Grin.Val(FromVal(..),ToVal(..),cChar,cInt,world__,pworld__) where
+module Grin.Val(FromVal(..),ToVal(..),cChar,cInt,tn_2Tup,world__,pworld__) where
hunk ./Grin/Val.hs 14
+tn_2Tup = toAtom "CPrelude.(,)"
+tn_True = toAtom "CPrelude.True"
+tn_False = toAtom "CPrelude.False"
+tn_unit = toAtom "CPrelude.()"
+
+instance ConNames Val where
+    vTrue = NodeC tn_True []
+    vFalse = NodeC tn_False []
+    vUnit =  NodeC tn_unit []
+    vOrdering x = NodeC (toAtom $ "CPrelude." ++ show x) []
hunk ./Grin/Val.hs 53
-    toVal (x,y) = NodeC (toAtom "CPrelude.(,)") [x,y]
+    toVal (x,y) = NodeC tn_2Tup [x,y]
hunk ./Grin/Val.hs 59
-    toVal c = NodeC (toAtom "CPredule.Int") [toUnVal c]
+    toVal c = NodeC cInt [toUnVal c]
hunk ./Name.hs 170
---unboxedNameTuple t n = toName t $ "(#": replicate (n - 1) ',' ++ "#)"