diff options
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) |