[MLton-commit] r7098

[Matthew Fluet]

No need to to use ".S", because no need to preprocess assembler files.
----------------------------------------------------------------------

U   mlton/trunk/mlton/main/main.fun

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

Modified: mlton/trunk/mlton/main/main.fun
===================================================================
--- mlton/trunk/mlton/main/main.fun	2009-04-19 16:03:41 UTC (rev 7097)
+++ mlton/trunk/mlton/main/main.fun	2009-04-19 16:03:43 UTC (rev 7098)
@@ -1401,8 +1401,7 @@
                                  Compile.compileSML
                                  {input = files,
                                   outputC = make (Control.C, ".c"),
-                                  outputS = make (Control.Assembly,
-                                                  if !debug then ".s" else ".S")}
+                                  outputS = make (Control.Assembly, ".s")}
                      in
                         case stop of
                            Place.Generated => ()