Mercurial > urweb
diff src/main.mlton.sml @ 1235:a7b773f1d053
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)