[MLton-commit] r6310

[Matthew Fluet]

Formatting
----------------------------------------------------------------------

U   mlton/trunk/mlton/ssa/shrink.fun
U   mlton/trunk/mlton/ssa/shrink2.fun

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

Modified: mlton/trunk/mlton/ssa/shrink.fun
===================================================================
--- mlton/trunk/mlton/ssa/shrink.fun	2008-01-09 21:20:53 UTC (rev 6309)
+++ mlton/trunk/mlton/ssa/shrink.fun	2008-01-09 21:50:01 UTC (rev 6310)
@@ -1174,9 +1174,9 @@
                         datatype z = datatype Prim.ApplyResult.t
                      in
                         case primApp (prim, args) of
-                           Apply (p, args) => apply {prim = p,
-                                                     targs = Vector.new0 (),
-                                                     args = Vector.fromList args}
+                           Apply (prim, args) => 
+                              apply {prim = prim, targs = Vector.new0 (),
+                                     args = Vector.fromList args}
                          | Bool b =>
                               let
                                  val con = Con.fromBool b

Modified: mlton/trunk/mlton/ssa/shrink2.fun
===================================================================
--- mlton/trunk/mlton/ssa/shrink2.fun	2008-01-09 21:20:53 UTC (rev 6309)
+++ mlton/trunk/mlton/ssa/shrink2.fun	2008-01-09 21:50:01 UTC (rev 6310)
@@ -1248,8 +1248,8 @@
                         datatype z = datatype Prim.ApplyResult.t
                      in
                         case primApp (prim, args) of
-                           Apply (p, args) => apply {prim = p,
-                                                     args = Vector.fromList args}
+                           Apply (prim, args) => 
+                              apply {prim = prim, args = Vector.fromList args}
                          | Bool b =>
                               let
                                  val variant = Var.newNoname ()
@@ -1271,7 +1271,6 @@
                                                  fn () => Exp.Const c)
                          | Var vi => setVar vi
                          | _ => apply {args = args, prim = prim}
-
                      end
                 | Select {base, offset} =>
                      (case base of