Mercurial > urweb

diff src/main.mlton.sml @ 1301:4359e185d3af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Demo improvements
author Adam Chlipala <adam@chlipala.net>
date Thu, 30 Sep 2010 18:29:59 -0400
parents 459a334345ae
children d2ad997ca157
line wrap: on
line diff
--- a/src/main.mlton.sml	Thu Sep 30 18:12:04 2010 -0400
+++ b/src/main.mlton.sml	Thu Sep 30 18:29:59 2010 -0400
@@ -88,6 +88,9 @@
       | "-moduleOf" :: fname :: _ =>
         (print (Compiler.moduleOf fname ^ "\n");
          OS.Process.exit OS.Process.success)
+      | "-noEmacs" :: rest =>
+        (Demo.noEmacs := true;
+         doArgs rest)
       | arg :: rest =>
         (if size arg > 0 andalso String.sub (arg, 0) = #"-" then
              raise Fail ("Unknown flag " ^ arg)