diff options
Diffstat (limited to 'src/main.mlton.sml')
-rw-r--r-- | src/main.mlton.sml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml index e6a973b2..142296e4 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -43,8 +43,13 @@ fun doArgs (args, (timing, sources)) = val (timing, sources) = doArgs (CommandLine.arguments (), (false, [])) +val job = + case sources of + [file] => file + | _ => raise Fail "Multiple job files specified" + val () = if timing then - Compiler.time Compiler.toCjrize sources + Compiler.time Compiler.toCjrize job else - Compiler.compile sources + Compiler.compile job |