summaryrefslogtreecommitdiff
path: root/src/main.mlton.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/main.mlton.sml')
-rw-r--r--src/main.mlton.sml7
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)