diff src/jscomp.sml @ 980:134e8a4de36b

demo/more compiles; small problem left with foreign keys in Grid1
author Adam Chlipala <adamc@hcoop.net>
date Thu, 24 Sep 2009 11:15:21 -0400
parents e1f3f1ea8cff
children dfe34fad749d
line wrap: on
line diff
--- 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)