summaryrefslogtreecommitdiff
path: root/src/jscomp.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-03-10 15:17:23 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-03-10 15:17:23 -0400
commitb8e7b835e7cde4cf374138467da8b16e93a65eb9 (patch)
tree433f576bae7ae3c50abfef5327d67f0220601783 /src/jscomp.sml
parent4f9024019d78bebec6926d19da0361587c88bd03 (diff)
Batch example
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r--src/jscomp.sml6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml
index 37bbf79d..adff2fda 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -44,6 +44,8 @@ val funcs = [(("Basis", "alert"), "alert"),
(("Basis", "htmlifyString"), "eh"),
(("Basis", "new_client_source"), "sc"),
(("Basis", "set_client_source"), "sv"),
+ (("Basis", "stringToFloat_error"), "pfl"),
+ (("Basis", "stringToInt_error"), "pi"),
(("Basis", "urlifyInt"), "ts"),
(("Basis", "urlifyFloat"), "ts"),
(("Basis", "urlifyString"), "escape")]
@@ -893,7 +895,7 @@ fun process file =
| EDml _ => unsupported "DML"
| ENextval _ => unsupported "Nextval"
| EUnurlify _ => unsupported "EUnurlify"
- | EJavaScript (_, e as (EAbs _, _), _) =>
+ (*| EJavaScript (_, e as (EAbs _, _), _) =>
let
val (e, st) = jsE inner (e, st)
in
@@ -901,7 +903,7 @@ fun process file =
e,
str ")+\")\""],
st)
- end
+ end*)
| EJavaScript (_, e, _) =>
let
val (e, st) = jsE inner (e, st)