[MLton-commit] r7374

[Matthew Fluet]

Don't have diag-pass imply keep-pass.
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/mlton/main/main.fun
===================================================================
--- mlton/trunk/mlton/main/main.fun	2009-12-10 03:08:33 UTC (rev 7373)
+++ mlton/trunk/mlton/main/main.fun	2009-12-10 03:08:36 UTC (rev 7374)
@@ -344,9 +344,7 @@
         (fn s =>
          (case Regexp.fromString s of
              SOME (re,_) => let val re = Regexp.compileDFA re
-                            in
-                               List.push (diagPasses, re)
-                               ; List.push (keepPasses, re)
+                            in List.push (diagPasses, re)
                             end
            | NONE => usage (concat ["invalid -diag-pass flag: ", s])))),
        let