diff options
author | 2010-02-11 09:10:01 -0500 | |
---|---|---|
committer | 2010-02-11 09:10:01 -0500 | |
commit | a91daf909f14d7bf3bd94cbec672497e1f23d400 (patch) | |
tree | 07742ac1accf17b7abc4153c890887c5a20ad464 /src/main.mlton.sml | |
parent | b65df4c602043d867a7cfe41c664b8e987a7f9a7 (diff) |
sigfile directive
Diffstat (limited to 'src/main.mlton.sml')
-rw-r--r-- | src/main.mlton.sml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml index 9cf5064a..fc1ba7e5 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -72,6 +72,9 @@ fun doArgs args = | "-root" :: name :: root :: rest => (Compiler.addModuleRoot (root, name); doArgs rest) + | "-sigfile" :: name :: rest => + (Settings.setSigFile (SOME name); + doArgs rest) | arg :: rest => (if size arg > 0 andalso String.sub (arg, 0) = #"-" then raise Fail ("Unknown flag " ^ arg) |