Mercurial > urweb

diff src/jscomp.sml @ 729:7c6b6c3c7b79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some client-side error handling
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Apr 2009 13:47:20 -0400
parents 6fc633d990e7
children 796e42c93c48
line wrap: on
line diff
--- a/src/jscomp.sml	Thu Apr 16 13:00:40 2009 -0400
+++ b/src/jscomp.sml	Thu Apr 16 13:47:20 2009 -0400
@@ -53,7 +53,11 @@
              (("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 @@
                             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