|
From: Vesa K. <ve...@ml...> - 2006-12-29 14:42:32
|
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 =
|