aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/jscomp.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-04-04 14:03:39 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-04-04 14:03:39 -0400
commitdfe722a61e5c81cdfa6ed844933a14783cd9bd9c (patch)
treef845ffce49085952ab6313d30ed7d977dc2ab8d6 /src/jscomp.sml
parentabb3bffd224cb7bdbbbc1461643a8e58fb03ed8f (diff)
_Really_ implement embedded closure GC; extend Scriptcheck to figure out when client IDs must be assigned
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r--src/jscomp.sml10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml
index 1409a0cb..c28f58d0 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -850,7 +850,7 @@ fun process file =
val (e1, st) = jsE inner (e1, st)
val (e2, st) = jsE inner (e2, st)
in
- (strcat [str "(", e1, str "+", e2, str ")"], st)
+ (strcat [str "cat(", e1, str ",", e2, str ")"], st)
end
| EError (e, _) =>
@@ -891,9 +891,9 @@ fun process file =
| EJavaScript (Source _, _, SOME _) => (e, st)
| EJavaScript (_, _, SOME e) =>
- (strcat [str "function(){return ",
+ (strcat [str "cs(function(){return ",
e,
- str "}"],
+ str "})"],
st)
| EClosure _ => unsupported "EClosure"
@@ -905,9 +905,9 @@ fun process file =
let
val (e, st) = jsE inner (e, st)
in
- (strcat [str "function(){return ",
+ (strcat [str "cs(function(){return ",
e,
- str "}"],
+ str "})"],
st)
end