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 | 71f049713bc52fab0c85b84265c6e3db783d69c3 (patch) | |
| tree | 1ef3d07d85c0a8e80ae15c3cc4d8701a161f4fbe /src/cjr_print.sml | |
| parent | c4b35bfac2f71541d5fddb948ca0d82039dc67fe (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 = |