Mercurial > urweb

diff src/main.mlton.sml @ 279:8bb46d87b074

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update MLton main file
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Sep 2008 16:18:05 -0400
parents 63a2f2322c1f
children 168667cdaa95
line wrap: on
line diff
--- a/src/main.mlton.sml	Tue Sep 02 16:10:07 2008 -0400
+++ b/src/main.mlton.sml	Tue Sep 02 16:18:05 2008 -0400
@@ -43,8 +43,13 @@
 
 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