diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-04 12:54:39 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-04 12:54:39 -0400 |
| commit | abb3bffd224cb7bdbbbc1461643a8e58fb03ed8f (patch) | |
| tree | fffd7969dc6117fb442be22dfcbb86c15df35d0d /src/jscomp.sml | |
| parent | e74f91d28381be3758a53da75985afa05a06680d (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.sml | 8 |
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 |