diff src/cjr_print.sml @ 802:ef6de4075dc1

Fix a Core_untangle bug that missed closure variable references; XHTMLize
author Adam Chlipala <adamc@hcoop.net>
date Sat, 16 May 2009 12:41:33 -0400
parents 7394368a5cad
children 10fe57e4a8c2
line wrap: on
line diff
--- a/src/cjr_print.sml	Thu May 14 18:13:09 2009 -0400
+++ b/src/cjr_print.sml	Sat May 16 12:41:33 2009 -0400
@@ -2829,7 +2829,7 @@
                                     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