[MLton-commit] r5163

[Vesa Karvonen]

Minor syntactic simplification.  No semantic changes.
----------------------------------------------------------------------

U   mlton/trunk/mlton/control/control.sml

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

Modified: mlton/trunk/mlton/control/control.sml
===================================================================
--- mlton/trunk/mlton/control/control.sml	2007-02-10 00:06:07 UTC (rev 5162)
+++ mlton/trunk/mlton/control/control.sml	2007-02-10 21:39:44 UTC (rev 5163)
@@ -26,17 +26,12 @@
 
 datatype style = No | Assembly | C | Dot | ML
 
-fun preSuf style =
-   let
-      val (p, s) =
-         case style of
-            No => ("", "")
-          | Assembly => ("/* ", " */")
-          | C => ("/* ", " */")
-          | Dot => ("// ", "")
-          | ML => ("(* ", " *)")
-   in (p, s)
-   end
+val preSuf =
+   fn No => ("", "")
+    | Assembly => ("/* ", " */")
+    | C => ("/* ", " */")
+    | Dot => ("// ", "")
+    | ML => ("(* ", " *)")
 
 fun outputHeader (style: style, output: Layout.t -> unit) =
    let