diff src/main.mlton.sml @ 2206:c1a62ce47083

Merge.
author Ziv Scully <ziv@mit.edu>
date Tue, 27 May 2014 21:38:01 -0400
parents 057b08253a75
children fb113569519e 0ca11d57c175
line wrap: on
line diff
--- a/src/main.mlton.sml	Tue May 27 21:15:53 2014 -0400
+++ b/src/main.mlton.sml	Tue May 27 21:38:01 2014 -0400
@@ -174,6 +174,9 @@
                      else
                          Settings.addLimit (class, n);
                  doArgs rest)
+              | "-explainEmbed" :: rest =>
+                (JsComp.explainEmbed := true;
+                 doArgs rest)
               | arg :: rest =>
                 (if size arg > 0 andalso String.sub (arg, 0) = #"-" then
                      raise Fail ("Unknown flag " ^ arg)