From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 2 Feb 2006 20:49:54 +0000 (+0000)
Subject: Generate HTTP header _after_ editing document.
X-Git-Tag: 20090517-FFI~1107
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=10cef9a090f6d1da55224189006f7bc1847159a8;p=mit-scheme.git

Generate HTTP header _after_ editing document.
---

diff --git a/v7/src/ssp/xhtml-expander.scm b/v7/src/ssp/xhtml-expander.scm
index d0d871dd5..2a2bee9e1 100644
--- a/v7/src/ssp/xhtml-expander.scm
+++ b/v7/src/ssp/xhtml-expander.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml-expander.scm,v 1.7 2006/02/02 20:08:24 cph Exp $
+$Id: xhtml-expander.scm,v 1.8 2006/02/02 20:49:54 cph Exp $
 
 Copyright 2002,2003,2004,2006 Massachusetts Institute of Technology
 
@@ -35,11 +35,6 @@ USA.
   (let ((document
 	 (read/expand-xml-file pathname
 			       (make-expansion-environment pathname))))
-    (if (in-mod-lisp?)
-	(http-response-header 'content-type
-			      (string-append (html-content-type)
-					     "; charset="
-					     (xml-document-charset document))))
     (if (not (xml-document-declaration document))
 	(set-xml-document-declaration! document
 				       (make-xml-declaration "1.0" #f #f)))
@@ -62,6 +57,11 @@ USA.
 		(universal-time->local-time-string (get-universal-time))
 		". "))
 	      (xml-element-contents root))))
+    (if (in-mod-lisp?)
+	(http-response-header 'content-type
+			      (string-append (html-content-type)
+					     "; charset="
+					     (xml-document-charset document))))
     (write-xml document port 'INDENT-DTD? #t)))
 
 (define (xml-document-charset document)