Mercurial > urweb
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)