diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-04-09 14:36:47 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-04-09 14:36:47 -0400 |
| commit | 51b2033057b25f4cecd3d5e73dc49b60b532834e (patch) | |
| tree | 129120a683d01c00c6deb50349c48d8975dfd573 /src/cjr_print.sml | |
| parent | 039b577f61a2bdf98abe10c5f10c8e3539a59d19 (diff) | |
Each context gets its own non-repeating sequence of source numbers
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index d6c0db98..3988a921 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -2723,7 +2723,11 @@ fun p_file env (ds, ps) = string ", 0);", newline, box (case ek of - Core.Rpc _ => [urlify env ran] + Core.Rpc _ => [string "uw_write(ctx, uw_get_real_script(ctx));", + newline, + string "uw_write(ctx, \"\\n\");", + newline, + urlify env ran] | _ => [string "uw_write(ctx, \"</html>\");", newline]), string "return;", |