diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-04 14:03:39 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-04 14:03:39 -0400 |
| commit | dfe722a61e5c81cdfa6ed844933a14783cd9bd9c (patch) | |
| tree | f845ffce49085952ab6313d30ed7d977dc2ab8d6 /src/jscomp.sml | |
| parent | abb3bffd224cb7bdbbbc1461643a8e58fb03ed8f (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.sml | 10 |
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 |