diff options
author | 2009-04-16 13:47:20 -0400 | |
---|---|---|
committer | 2009-04-16 13:47:20 -0400 | |
commit | 6ada30a32e69cf288e50ee0ca2963e031c588ee0 (patch) | |
tree | d0d08dc15edc8e7dc1f916a592160f8c9e561bd2 /src/jscomp.sml | |
parent | e65c023309173aa291952143537f174888a8de86 (diff) |
Some client-side error handling
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r-- | src/jscomp.sml | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index d7a74fab..f839a67d 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -53,7 +53,11 @@ val funcs = [(("Basis", "alert"), "alert"), (("Basis", "strcat"), "cat"), (("Basis", "intToString"), "ts"), (("Basis", "floatToString"), "ts"), - (("Basis", "onError"), "onError")] + (("Basis", "onError"), "onError"), + (("Basis", "onFail"), "onFail"), + (("Basis", "onConnectFail"), "onConnectFail"), + (("Basis", "onDisconnect"), "onDisconnect"), + (("Basis", "onServerError"), "onServerError")] structure FM = BinaryMapFn(struct type ord_key = string * string @@ -764,6 +768,11 @@ fun process file = end | EBinop (s, e1, e2) => let + val s = + case s of + "!strcmp" => "==" + | _ => s + val (e1, st) = jsE inner (e1, st) val (e2, st) = jsE inner (e2, st) in |