make server-generated webpages XHTML 1.0 Strict: emit prolog

(not tested)

scheme/httpd/file-dir-handler.scm

@@ -416,6 +416,7 @@
 		     (file-directory-options-back-icon-url options))
 		    (blank-icon
 		     (file-directory-options-blank-icon-url options)))
+		(emit-prolog port)
 		(with-tag port html (xmlnsdecl-attr)
 		  (let ((title (string-append "Index of /"
 					      (string-join file-path "/"))))

scheme/httpd/info-gateway.scm

@@ -163,14 +163,14 @@
 	    '()
 	    (make-writer-body
 	     (lambda (out options)
-	   
+	       (emit-prolog out)
 	       (receive (find-entry node-name) (parse-info-url (request-url req))
 		 (display-node node-name
 			       (file-finder find-entry)
 			       (referencer make-reference (request-url req) out)
 			       icon-name
 			       out))
-	       (with-tag out address ()
+	       (with-tag out address ();; this is outside the html element?
 		 (write-string address out)))))))
 	 ((or (string=? request-method "HEAD")
 	      (string=? request-method "POST"))

scheme/httpd/rman-gateway.scm

@@ -62,13 +62,14 @@
 	    '()
 	    (make-writer-body
 	     (lambda (out options)
+	       (emit-prolog out)
 	       (receive (man-path entry and-then) 
 		   (parse-man-url (request-url req))
 		 (emit-man-page man-binary nroff-binary rman-binary
 				gzcat-binary
 				entry man man-path and-then reference-template out))
 	       
-	       (with-tag out address ()
+	       (with-tag out address () ;;außerhalb des html elements?
 		 (display address out)))))))
 	 ((or (string=? request-method "HEAD")
 	      (string=? request-method "POST"))