diff src/main.mlton.sml @ 1983:0ff4f64b4309

Merge in upstream
author Patrick Hurst <phurst@mit.edu>
date Wed, 29 Jan 2014 18:29:43 -0500
parents 0652f295e0fa
children 210fb3dfc483
line wrap: on
line diff
--- a/src/main.mlton.sml	Sat Jan 25 18:15:14 2014 -0500
+++ b/src/main.mlton.sml	Wed Jan 29 18:29:43 2014 -0500
@@ -133,6 +133,9 @@
               | "-static" :: rest =>
                 (Settings.setStaticLinking true;
                  doArgs rest)
+              | "-stop" :: phase :: rest =>
+                (Compiler.setStop phase;
+                 doArgs rest)
               | "-path" :: name :: path :: rest =>
                 (Compiler.addPath (name, path);
                  doArgs rest)