Mercurial > urweb

diff src/main.mlton.sml @ 1235:a7b773f1d053

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Command-line use of Iflow
author Adam Chlipala <adamc@hcoop.net>
date Tue, 13 Apr 2010 11:34:59 -0400
parents 6373a0432338
children 459a334345ae
line wrap: on
line diff
--- a/src/main.mlton.sml	Tue Apr 13 11:15:43 2010 -0400
+++ b/src/main.mlton.sml	Tue Apr 13 11:34:59 2010 -0400
@@ -82,6 +82,9 @@
       | "-sigfile" :: name :: rest =>
         (Settings.setSigFile (SOME name);
          doArgs rest)
+      | "-iflow" :: rest =>
+        (Compiler.doIflow := true;
+         doArgs rest)
       | arg :: rest =>
         (if size arg > 0 andalso String.sub (arg, 0) = #"-" then
              raise Fail ("Unknown flag " ^ arg)