diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-04-17 13:43:00 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-04-17 13:43:00 -0400 |
commit | ea09e1d6960f3169751c4c384993d007a804c3d2 (patch) | |
tree | 1ef3d07d85c0a8e80ae15c3cc4d8701a161f4fbe /src/cjr_print.sml | |
parent | 8d5d88110f12eb56558cf6f1b1514338792487da (diff) |
Before allowing an indirect return, check (dynamically, for now) that we aren't in an RPC handler
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 3988a921..9e953737 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -2651,6 +2651,8 @@ fun p_file env (ds, ps) = newline, string "uw_write(ctx, begin_xhtml);", newline, + string "uw_mayReturnIndirectly(ctx);", + newline, string "uw_set_script_header(ctx, \"", let val scripts = |