diff options
author | 2009-09-24 11:15:21 -0400 | |
---|---|---|
committer | 2009-09-24 11:15:21 -0400 | |
commit | 03ff3f1752909a5fadead74e06f5deccb921530f (patch) | |
tree | 2af6471dc45cf4c01c34a7bd5ee984b6e49a2ffe | |
parent | 7ab73a2a4142f9c9702568b9f0f5580fb6a96c12 (diff) |
demo/more compiles; small problem left with foreign keys in Grid1
-rw-r--r-- | src/jscomp.sml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index 1c94cd05..b6e4a3b6 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -686,7 +686,7 @@ fun process file = 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 @@ fun process file = | "%" => "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) |