Mercurial > urweb
comparison 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 |
comparison
equal
deleted
inserted
replaced
801:5f49a6b759cb | 802:ef6de4075dc1 |
---|---|
2827 newline] | 2827 newline] |
2828 | _ => [string "uw_write_header(ctx, \"Content-type: text/html\\r\\n\");", | 2828 | _ => [string "uw_write_header(ctx, \"Content-type: text/html\\r\\n\");", |
2829 newline, | 2829 newline, |
2830 string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");", | 2830 string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");", |
2831 newline, | 2831 newline, |
2832 string "uw_write(ctx, \"<html>\");", | 2832 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>\");", |
2833 newline, | 2833 newline, |
2834 string "uw_set_script_header(ctx, \"", | 2834 string "uw_set_script_header(ctx, \"", |
2835 string (case side of | 2835 string (case side of |
2836 ServerOnly => "" | 2836 ServerOnly => "" |
2837 | _ => "<script src=\\\"" | 2837 | _ => "<script src=\\\"" |