Mercurial > urweb
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)