[MLton-commit] r5838

[Matthew Fluet]

Type alias for SML/NJ compile
----------------------------------------------------------------------

U   mlton/trunk/mlton/ssa/simplify.fun

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

Modified: mlton/trunk/mlton/ssa/simplify.fun
===================================================================
--- mlton/trunk/mlton/ssa/simplify.fun	2007-08-08 23:45:59 UTC (rev 5837)
+++ mlton/trunk/mlton/ssa/simplify.fun	2007-08-09 01:04:29 UTC (rev 5838)
@@ -9,6 +9,8 @@
 functor Simplify (S: SIMPLIFY_STRUCTS): SIMPLIFY = 
 struct
 
+type int = Int.t
+
 open S
 
 structure CommonArg = CommonArg (S)