# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1220386685 14400
# Node ID 8bb46d87b074c649d7315407fea3d3b90860e7b7
# Parent  137744c5b1ae4398e83262a3c69a5198da8bf408
Update MLton main file

diff -r 137744c5b1ae -r 8bb46d87b074 src/main.mlton.sml
--- 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
diff -r 137744c5b1ae -r 8bb46d87b074 tests/where.ur
--- a/tests/where.ur	Tue Sep 02 16:10:07 2008 -0400
+++ b/tests/where.ur	Tue Sep 02 16:18:05 2008 -0400
@@ -7,7 +7,7 @@
 val q4 = (SELECT * FROM t1 WHERE {True})
 val q5 = (SELECT * FROM t1 WHERE {1} = {1})
 val q6 = (SELECT * FROM t1 WHERE {"Hi"} < {"Bye"})
-val q7 = (SELECT * FROM t1 WHERE {1} <> {1} AND NOT ({"Hi"} >= {"Bye"}))
+val q7 = (SELECT * FROM t1 WHERE {1} = {1} AND NOT ({"Hi"} <= {"Bye"}))
 val q8 = (SELECT * FROM t1 WHERE t1.A = 1 OR t1.C < 3.0)
 
 datatype list a = Nil | Cons of a * list a
diff -r 137744c5b1ae -r 8bb46d87b074 tests/where.urp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/where.urp	Tue Sep 02 16:18:05 2008 -0400
@@ -0,0 +1,6 @@
+debug
+database dbname=test
+exe /tmp/webapp
+sql /tmp/urweb.sql
+
+where