diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-16 12:41:33 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-16 12:41:33 -0400 |
| commit | c50a06b4118eac12702518e03ecca87f95f34cc4 (patch) | |
| tree | b05b4f028035c9fbcc9f2477a69002c8b0034312 /src/cjr_print.sml | |
| parent | 757f1700cc23e0d8737a5e2f81d4b065420dce94 (diff) | |
Fix a Core_untangle bug that missed closure variable references; XHTMLize
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 4828996c..2ac99827 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -2829,7 +2829,7 @@ fun p_file env (ds, ps) = newline, string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");", newline, - string "uw_write(ctx, \"<html>\");", + string "uw_write(ctx, \"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Transitional//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\\\">\\n<html>\");", newline, string "uw_set_script_header(ctx, \"", string (case side of |