[MLton-commit] r5010

[Vesa Karvonen]

Fixed trunk to compile after the change to mlton/ast/prim-tycons.* in
r5008.

----------------------------------------------------------------------

U   mlton/trunk/mlton/elaborate/elaborate-env.fun

----------------------------------------------------------------------

Modified: mlton/trunk/mlton/elaborate/elaborate-env.fun
===================================================================
--- mlton/trunk/mlton/elaborate/elaborate-env.fun	2006-12-29 20:05:19 UTC (rev 5009)
+++ mlton/trunk/mlton/elaborate/elaborate-env.fun	2006-12-29 22:42:15 UTC (rev 5010)
@@ -688,7 +688,7 @@
               uses = uses}))
    end
 
-val allTycons: Tycon.t list ref = ref (List.map (Tycon.prims, #1))
+val allTycons: Tycon.t list ref = ref (List.map (Tycon.prims, #tycon))
 val newTycons: (Tycon.t * Kind.t * Region.t) list ref = ref []
 
 val newTycon: string * Kind.t * AdmitsEquality.t * Region.t -> Tycon.t =