From 81934ea4c2cf2260b6000e9be4d13e328204929a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Thu, 30 Sep 2010 18:29:59 -0400
Subject: Demo improvements

---
 src/main.mlton.sml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/main.mlton.sml')

diff --git a/src/main.mlton.sml b/src/main.mlton.sml
index 33838c93..09b53c58 100644
--- a/src/main.mlton.sml
+++ b/src/main.mlton.sml
@@ -88,6 +88,9 @@ fun doArgs args =
       | "-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)
-- 
cgit v1.2.3