summaryrefslogtreecommitdiff
path: root/src/jscomp.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-04-04 12:54:39 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-04-04 12:54:39 -0400
commitabb3bffd224cb7bdbbbc1461643a8e58fb03ed8f (patch)
treefffd7969dc6117fb442be22dfcbb86c15df35d0d /src/jscomp.sml
parente74f91d28381be3758a53da75985afa05a06680d (diff)
Fix overzealous Marshalcheck; garbage-collect string-embedded closures when no dyns are active
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r--src/jscomp.sml8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml
index 934b9945..1409a0cb 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -891,9 +891,9 @@ fun process file =
| EJavaScript (Source _, _, SOME _) => (e, st)
| EJavaScript (_, _, SOME e) =>
- (strcat [str "\"cr(\"+ca(function(){return ",
+ (strcat [str "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 "\"cr(\"+ca(function(){return ",
+ (strcat [str "function(){return ",
e,
- str "})+\")\""],
+ str "}"],
st)
end