diff options
Diffstat (limited to 'src')
-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) |