diff options
author | 2009-04-04 14:03:39 -0400 | |
---|---|---|
committer | 2009-04-04 14:03:39 -0400 | |
commit | cfcc0c0553a13a83cf674b00828c89b6f9459936 (patch) | |
tree | f845ffce49085952ab6313d30ed7d977dc2ab8d6 /src/cjr_print.sml | |
parent | 8e8c217003dcda28e14b330039062d9bf8463e64 (diff) |
_Really_ implement embedded closure GC; extend Scriptcheck to figure out when client IDs must be assigned
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 9c652d4a..54ec3cbf 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -2391,12 +2391,19 @@ fun p_file env (ds, ps) = 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 "\");", |