diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-09-24 11:15:21 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-09-24 11:15:21 -0400 |
| commit | 03ff3f1752909a5fadead74e06f5deccb921530f (patch) | |
| tree | 2af6471dc45cf4c01c34a7bd5ee984b6e49a2ffe /src/jscomp.sml | |
| parent | 7ab73a2a4142f9c9702568b9f0f5580fb6a96c12 (diff) | |
demo/more compiles; small problem left with foreign keys in Grid1
Diffstat (limited to 'src/jscomp.sml')
| -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) |