[add more predefined names
John Meacham <john@repetae.net>**20051006030647] hunk ./E/E.hs 167
-tArrow = toName TypeConstructor ("Prelude","->")
hunk ./E/E.hs 223
-vWorld__ = ELit (litCons DataConstructor ("Jhc.IO","World__") [] tWorld__)
-
--- types
-etIO t = ELit (litCons TypeConstructor ("Prelude.IO","IO") [t] tStar)
---etWorld = ELit (litCons TypeConstructor ("Jhc.IO","World__") [] tStar)
---tRational = ELit (litCons TypeConstructor ("Prelude.Ratio","Rational") [] tStar)
-tAbsurd k = ELit (litCons TypeConstructor "Absurd#" [] k)
hunk ./E/E.hs 335
+
+
+tAbsurd k = ELit (litCons TypeConstructor "Absurd#" [] k)
+vWorld__ = ELit (litCons DataConstructor ("Jhc.IO","World__") [] tWorld__)
hunk ./E/E.hs 346
+dc_EmptyList = toName DataConstructor ("Prelude","[]")
+tc_List = toName TypeConstructor ("Prelude","[]")
+tc_IO = toName TypeConstructor ("Jhc.IO", "IO")
+tc_IOResult = toName TypeConstructor ("Jhc.IO","IOResult")
+tc_Arrow = toName TypeConstructor ("Prelude","->")
+p_unsafeCoerce = primPrim "unsafeCoerce"
+p_integralCast = primPrim "integralCast"
+
+tArrow = tc_Arrow
+