Mercurial > urweb
comparison src/cjr_print.sml @ 1451:b6ce8ef0ea88
Before allowing an indirect return, check (dynamically, for now) that we aren't in an RPC handler
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 17 Apr 2011 13:43:00 -0400 |
| parents | 36f7d1debb37 |
| children | d674fb9499c4 |
comparison
equal
deleted
inserted
replaced
| 1450:d40104c112df | 1451:b6ce8ef0ea88 |
|---|---|
| 2649 newline, | 2649 newline, |
| 2650 string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");", | 2650 string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");", |
| 2651 newline, | 2651 newline, |
| 2652 string "uw_write(ctx, begin_xhtml);", | 2652 string "uw_write(ctx, begin_xhtml);", |
| 2653 newline, | 2653 newline, |
| 2654 string "uw_mayReturnIndirectly(ctx);", | |
| 2655 newline, | |
| 2654 string "uw_set_script_header(ctx, \"", | 2656 string "uw_set_script_header(ctx, \"", |
| 2655 let | 2657 let |
| 2656 val scripts = | 2658 val scripts = |
| 2657 case side of | 2659 case side of |
| 2658 ServerOnly => "" | 2660 ServerOnly => "" |