Mercurial > urweb
changeset 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 (2009-09-24) |
parents | 3612ff0c6a10 |
children | 27a3412d23e4 |
files | src/jscomp.sml |
diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
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)