diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-16 12:36:01 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-16 12:36:01 -0400 |
| commit | 51e34115de1d243904e9b49c3839fde9c91c96c9 (patch) | |
| tree | e5b913873d3ffcd5abcc024dbc7d74e8d1c2aad2 /src/jscomp.sml | |
| parent | 949880b71b6b3d105ff5d73b1cf6958509b85c1e (diff) | |
onError
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index 9a621906..d7a74fab 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -52,7 +52,8 @@ val funcs = [(("Basis", "alert"), "alert"), (("Basis", "recv"), "rv"), (("Basis", "strcat"), "cat"), (("Basis", "intToString"), "ts"), - (("Basis", "floatToString"), "ts")] + (("Basis", "floatToString"), "ts"), + (("Basis", "onError"), "onError")] structure FM = BinaryMapFn(struct type ord_key = string * string @@ -861,7 +862,7 @@ fun process file = let val (e, st) = jsE inner (e, st) in - (strcat [str "alert(cat(\"ERROR: \",", e, str "))"], + (strcat [str "er(", e, str ")"], st) end |