Mercurial > urweb
diff src/cjr_print.sml @ 693:655bcc9b77e0
_Really_ implement embedded closure GC; extend Scriptcheck to figure out when client IDs must be assigned
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sat, 04 Apr 2009 14:03:39 -0400 |
| parents | 829887ca47a6 |
| children | 70cbdcf5989b |
line wrap: on
line diff
--- a/src/cjr_print.sml Sat Apr 04 12:54:39 2009 -0400 +++ b/src/cjr_print.sml Sat Apr 04 14:03:39 2009 -0400 @@ -2391,12 +2391,19 @@ newline, string "uw_set_script_header(ctx, \"", string (case side of - ServerAndClient => "<script src=\\\"" - ^ OS.Path.joinDirFile {dir = !Monoize.urlPrefix, - file = "app.js"} - ^ "\\\"></script>\\n" - | ServerOnly => ""), + ServerOnly => "" + | _ => "<script src=\\\"" + ^ OS.Path.joinDirFile {dir = !Monoize.urlPrefix, + file = "app.js"} + ^ "\\\"></script>\\n"), string "\");", + newline, + string "uw_set_needs_push(ctx, ", + string (case side of + ServerAndPullAndPush => "1" + | _ => "0"), + string ");", + newline, string "uw_set_url_prefix(ctx, \"", string (!Monoize.urlPrefix), string "\");",