diff options
Diffstat (limited to 'src/main.mlton.sml')
| -rw-r--r-- | src/main.mlton.sml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml index 6ecb2f92..34dd6382 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -169,7 +169,11 @@ fun oneRun args = val job = case !sources of [file] => file - | _ => printVersion () + | _ => + if List.exists (fn s => s <> "-version") args then + raise Fail "Zero or multiple input files specified; only one is allowed." + else + printVersion () in case (!css, !demo, !tutorial) of (true, _, _) => |