diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/jscomp.sml | 8 | ||||
-rw-r--r-- | src/settings.sml | 6 |
2 files changed, 9 insertions, 5 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index d10bfd50..c01b9e10 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -824,11 +824,11 @@ fun process file = val (e, st) = jsE inner (e', st) in - (strcat (str "(" + (strcat (str "(d0=" + :: e + :: str "," :: List.revAppend (cases, - [str "d0=", - e, - str ",c0())"])), st) + [str "c0())"])), st) end | EStrcat (e1, e2) => diff --git a/src/settings.sml b/src/settings.sml index d04720c8..bdadb318 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -144,7 +144,11 @@ val jsFuncsBase = basisM [("alert", "alert"), ("onFail", "onFail"), ("onConnectFail", "onConnectFail"), ("onDisconnect", "onDisconnect"), - ("onServerError", "onServerError")] + ("onServerError", "onServerError"), + ("attrifyString", "escape"), + ("attrifyInt", "ts"), + ("attrifyFloat", "ts"), + ("attrifyBool", "bs")] val jsFuncs = ref jsFuncsBase fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls fun jsFunc x = M.find (!jsFuncs, x) |