diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-03-10 15:17:23 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-10 15:17:23 -0400 |
| commit | b8e7b835e7cde4cf374138467da8b16e93a65eb9 (patch) | |
| tree | 433f576bae7ae3c50abfef5327d67f0220601783 /src/jscomp.sml | |
| parent | 4f9024019d78bebec6926d19da0361587c88bd03 (diff) | |
Batch example
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 6 |
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) |