diff options
author | Sergey Mironov <grrwlf@gmail.com> | 2013-08-20 17:13:50 +0400 |
---|---|---|
committer | Sergey Mironov <grrwlf@gmail.com> | 2013-08-20 17:13:50 +0400 |
commit | 02deb1923a33e697938c7e7f8da2228259f6b620 (patch) | |
tree | 230b638a28394d5a1d7b3dea239b961a20d209e7 /src/main.mlton.sml | |
parent | b81a9d8eebf3049507714c79119496407618bad5 (diff) |
Add -ccompiler command line argument
This allows user to overwrite the compiler set during the configure phase
Diffstat (limited to 'src/main.mlton.sml')
-rw-r--r-- | src/main.mlton.sml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml index 19022cb7..91bbdc0c 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -61,12 +61,15 @@ fun oneRun args = case args of [] => () | "-version" :: rest => - printVersion () + printVersion () | "-numeric-version" :: rest => - printNumericVersion () + printNumericVersion () | "-css" :: rest => (css := true; doArgs rest) + | "-ccompiler" :: ccomp :: rest => + (Settings.setCCompiler ccomp; + doArgs rest) | "-demo" :: prefix :: rest => (demo := SOME (prefix, false); doArgs rest) |