# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1253805321 14400
# Node ID 134e8a4de36bc6a47dbf118b6e7988ae96294c41
# Parent  3612ff0c6a10eeeeb6fe3c33a744f909f03e04b8
demo/more compiles; small problem left with foreign keys in Grid1

diff -r 3612ff0c6a10 -r 134e8a4de36b src/jscomp.sml
--- a/src/jscomp.sml	Thu Sep 24 10:50:23 2009 -0400
+++ b/src/jscomp.sml	Thu Sep 24 11:15:21 2009 -0400
@@ -686,7 +686,7 @@
                                 val name = case s of
                                                "!" => "not"
                                              | "-" => "neg"
-                                             | _ => raise Fail "Jscomp: Unknown unary operator"
+                                             | _ => raise Fail ("Jscomp: Unknown unary operator " ^ s)
 
                                 val (e, st) = jsE inner (e, st)
                             in
@@ -707,7 +707,8 @@
                                              | "%" => "mod"
                                              | "<" => "lt"
                                              | "<=" => "le"
-                                             | _ => raise Fail "Jscomp: Unknown binary operator"
+                                             | "strcmp" => "strcmp"
+                                             | _ => raise Fail ("Jscomp: Unknown binary operator " ^ s)
 
                                 val (e1, st) = jsE inner (e1, st)
                                 val (e2, st) = jsE inner (e2, st)