[MLton-commit] r4041

[Matthew Fluet]

Style violation
----------------------------------------------------------------------

U   mlton/trunk/mlton/backend/ssa-to-rssa.fun

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

Modified: mlton/trunk/mlton/backend/ssa-to-rssa.fun
===================================================================
--- mlton/trunk/mlton/backend/ssa-to-rssa.fun	2005-08-25 21:14:12 UTC (rev 4040)
+++ mlton/trunk/mlton/backend/ssa-to-rssa.fun	2005-08-26 14:29:37 UTC (rev 4041)
@@ -1189,8 +1189,8 @@
                                | MLton_size =>
                                     simpleCCall
                                     (CFunction.size (Operand.ty (a 0)))
+                               | MLton_touch => primApp prim
                                | Pointer_getPointer => pointerGet ()
-                               | MLton_touch => primApp prim
                                | Pointer_getReal _ => pointerGet ()
                                | Pointer_getWord _ => pointerGet ()
                                | Pointer_setPointer => pointerSet ()